(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[   3351971,      57506]
NotebookOptionsPosition[   3346514,      57337]
NotebookOutlinePosition[   3346887,      57353]
CellTagsIndexPosition[   3346844,      57350]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
K\[EAcute]sz\[IAcute]tsen oktat\[OAcute]anyagot, ami \
k\[EAcute]tv\[AAcute]ltoz\[OAcute]s f\[UDoubleDot]ggv\[EAcute]nyek vizsg\
\[AAcute]lat\[AAcute]t szeml\[EAcute]lteti (szintvonalak, ir\[AAcute]ny menti \
v\[AAcute]ltoz\[AAcute]s, ...). Adjon
p\[EAcute]ld\[AAcute]kat.\
\>", "Title",
 CellFrame->{{0, 0}, {2, 0}},
 CellChangeTimes->{{3.6715464963322754`*^9, 3.6715465417903233`*^9}, {
  3.6715466646783495`*^9, 3.6715467063391285`*^9}, {3.6715487093892727`*^9, 
  3.6715487149612117`*^9}},
 TextAlignment->Center,
 FontFamily->"Lucida Calligraphy",
 FontColor->RGBColor[0., 0., 0.],
 Background->RGBColor[0.94, 0.88, 0.94]],

Cell[TextData[{
 StyleBox["K\[EAcute]sz\[IAcute]tette:",
  FontFamily->"Baskerville Old Face",
  FontSize->36,
  FontVariations->{"Underline"->True}],
 StyleBox["\n",
  FontSize->18],
 StyleBox["Keller Dorina \nSzab\[OAcute] Izabella",
  FontFamily->"Baskerville Old Face",
  FontSize->18,
  FontSlant->"Italic"]
}], "Text",
 CellDingbat->None,
 CellChangeTimes->{{3.6715483961392474`*^9, 3.6715484589876256`*^9}},
 TextAlignment->Center,
 Background->None],

Cell[CellGroupData[{

Cell["Bevezet\[EAcute]s", "Section",
 CellChangeTimes->{{3.671537958200968*^9, 3.671537977006312*^9}},
 FontFamily->"Gill Sans MT",
 FontWeight->"Bold",
 FontColor->RGBColor[1., 1., 1.],
 Background->RGBColor[
  0.25098039215686274`, 0.5019607843137255, 0.5019607843137255]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"A", " ", "c\[IAcute]mben", " ", "foglaltak", " ", "szerint"}], 
   ",", 
   RowBox[{
   "projekt\[UDoubleDot]nk", " ", "a", " ", 
    "k\[EAcute]tv\[AAcute]ltoz\[OAcute]s", " ", 
    "f\[UDoubleDot]ggv\[EAcute]nyek", " ", "vizsg\[AAcute]lat\[AAcute]val", 
    " ", 
    RowBox[{"foglalkozik", ".", " ", "A"}], " ", 
    "k\[EAcute]tv\[AAcute]ltoz\[OAcute]s", " ", 
    "f\[UDoubleDot]ggv\[EAcute]nyek", " ", "\[AAcute]ltal\[AAcute]nos", " ", 
    RowBox[{"alakja", ":", "\[IndentingNewLine]", "f", ":", 
     RowBox[{"D", "\[Subset]", 
      RowBox[{
       FormBox[
        SuperscriptBox["\[DoubleStruckCapitalR]", "2"],
        TraditionalForm], "\[RightArrow]", 
       RowBox[{
        RowBox[{"\[DoubleStruckCapitalR]", ".", "\n", "Alakjuk"}], " ", 
        "f\[UDoubleDot]ggv\[EAcute]nyfel\[UDoubleDot]let"}]}]}]}]}], ",", 
   RowBox[{"\[EAcute]pp", " ", "ez", " ", "az", " ", "oka", " ", "annak"}], 
   ",", 
   RowBox[{
   "hogy", " ", "vizsg\[AAcute]latuk", " ", "m\[AAcute]sk\[EAcute]pp", " ", 
    StyleBox[
     RowBox[{"z", "aljik"}]]}], ",", 
   RowBox[{
   "mint", " ", "az", " ", "egyv\[AAcute]ltoz\[OAcute]s", " ", 
    "f\[UDoubleDot]ggv\[EAcute]nyek", " ", 
    RowBox[{"eset\[EAcute]n", ".", " ", "Projekt\[UDoubleDot]nk"}], " ", 
    "bemutatja"}], ",", 
   RowBox[{
   "hogyan", " ", "vizsg\[AAcute]lhatjuk", " ", "a", " ", 
    "k\[EAcute]tv\[AAcute]ltoz\[OAcute]s", " ", 
    "f\[UDoubleDot]ggv\[EAcute]nyek", " ", "\[EAcute]rtelmez\[EAcute]si", " ",
     "tartom\[AAcute]ny\[AAcute]t"}], ",", "keresztmetszeteit", ",", 
   "szintvonalait", ",", 
   RowBox[{
   "sz\[EAcute]ls\[ODoubleAcute]\[EAcute]rt\[EAcute]keit", " ", "a", " ", 
    "parci\[AAcute]lis", " ", "deriv\[AAcute]ltak", " ", 
    "seg\[IAcute]ts\[EAcute]g\[EAcute]vel"}], ",", 
   RowBox[{
   "szeml\[EAcute]lteti", " ", "az", " ", "ir\[AAcute]nymenti", " ", 
    "deriv\[AAcute]ltat"}], ",", "illetve", ",", 
   RowBox[{
   "kiterjed", " ", "a", " ", "k\[EAcute]tv\[AAcute]ltoz\[OAcute]s", " ", 
    "f\[UDoubleDot]ggv\[EAcute]nyek", " ", 
    "integr\[AAcute]lk\[ODoubleDot]zel\[IAcute]tl\[EAcute]s\[EAcute]re", " ", 
    RowBox[{"is", "."}]}]}],
  FontFamily->"Courier New",
  FontSize->16]], "Text",
 CellChangeTimes->{{3.67154904599384*^9, 3.6715490535191655`*^9}, {
  3.671729809349579*^9, 3.6717299217474313`*^9}, {3.6717300022132254`*^9, 
  3.6717302421150217`*^9}, {3.671730281562648*^9, 3.6717305024136953`*^9}, {
  3.6717307340967355`*^9, 3.6717307503261337`*^9}},
 TextAlignment->Center]
}, Open  ]],

Cell[CellGroupData[{

Cell["\[CapitalEAcute]rtelmez\[EAcute]si tartom\[AAcute]ny", "Section",
 CellChangeTimes->{{3.6702236324103136`*^9, 3.6702236377092266`*^9}},
 FontFamily->"Gill Sans MT",
 FontWeight->"Bold",
 FontColor->RGBColor[1., 1., 1.],
 Background->RGBColor[
  0.25098039215686274`, 0.5019607843137255, 0.5019607843137255]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{
    RowBox[{
    "A", " ", "k\[EAcute]tv\[AAcute]ltoz\[OAcute]s", " ", 
     "f\[UDoubleDot]ggv\[EAcute]ny", " ", "grafikonja", " ", "egy", " ", 
     "fel\[UDoubleDot]let", " ", "a", " ", "3"}], "-", 
    RowBox[{"dimenzi\[OAcute]s", " ", "t\[EAcute]rben"}]}], ",", 
   RowBox[{
   "\[EAcute]rtelmez\[EAcute]si", " ", "tartom\[AAcute]nya", " ", "pedig", 
    " ", "rendezett", " ", "sz\[AAcute]mp\[AAcute]rokb\[OAcute]l", " ", 
    "\[AAcute]ll"}], ",", 
   RowBox[{
   "a", " ", "h\[AAcute]romv\[AAcute]ltoz\[OAcute]s", " ", 
    "f\[UDoubleDot]ggv\[EAcute]nyek\[EAcute]", " ", "rendezett", " ", 
    "sz\[AAcute]mh\[AAcute]rmasokb\[OAcute]l", " ", "\[EAcute]s", " ", 
    "\[IAcute]gy", " ", 
    RowBox[{"tov\[AAcute]bb", ".", " ", "A"}], " ", "z", "\"\<=(x,y)\>\"", 
    " ", "k\[EAcute]plet", " ", "egy", " ", 
    "k\[EAcute]tv\[AAcute]ltoz\[OAcute]s", " ", 
    "f\[UDoubleDot]ggv\[EAcute]nyt", " ", "ad", " ", "meg"}], ",", 
   RowBox[{"ha", " ", "a", " ", "s\[IAcute]k", "  ", "b\[AAcute]rmely", " ", 
    RowBox[{"(", 
     RowBox[{"x", ",", "y"}], ")"}], " ", "pontj\[AAcute]hoz", " ", 
    RowBox[{"(", 
     RowBox[{
     "x", " ", "\[EAcute]s", " ", "y", " ", "f\[UDoubleDot]ggetlen", " ", 
      "v\[AAcute]ltoz\[OAcute]k"}], ")"}], " ", "a", " ", "z", " ", 
    "f\[UDoubleDot]gg\[ODoubleAcute]", " ", "v\[AAcute]ltoz\[OAcute]", " ", 
    "legfeljebb", " ", "egy", " ", "\[EAcute]rt\[EAcute]ke", " ", 
    RowBox[{"tartozik", ".", "\[IndentingNewLine]", "Ha"}], " ", "egy", " ", 
    "sem"}], ",", 
   RowBox[{
   "akkor", " ", "a", " ", "f\[UDoubleDot]ggv\[EAcute]ny", " ", "nem", " ", 
    "\[EAcute]rtelmezett", " ", "abban", " ", "az", " ", 
    RowBox[{"(", 
     RowBox[{"x", ",", "y"}], ")"}], " ", "pontban"}], ",", 
   RowBox[{"ellenkez\[ODoubleAcute]", " ", "esetben", " ", 
    RowBox[{"\[EAcute]rtelmezett", ".", " ", "Az"}], " ", "al\[AAcute]bbi", 
    " ", "dinamikus", " ", "\[AAcute]br\[AAcute]n", " ", "az", 
    StyleBox[
     FormBox[
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", "y"], "+", "1"}], ")"}], " ", 
        RowBox[{"cos", "(", "x", ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", "y"], " ", "y"}]}],
      TraditionalForm],
     FontWeight->"Bold",
     FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
    "f\[UDoubleDot]ggv\[EAcute]ny", " ", "\[EAcute]s", " ", 
    "\[EAcute]rtelmez\[EAcute]si", " ", "tartom\[AAcute]ny\[AAcute]nak", " ", 
    "egy", " ", "r\[EAcute]sze", " ", "van", " ", 
    "\[AAcute]br\[AAcute]zolva"}], ",", 
   RowBox[{
   "ahol", " ", "tetsz\[ODoubleAcute]legesen", " ", 
    "v\[AAcute]laszthat\[OAcute]", " ", 
    RowBox[{"(", 
     FormBox[
      RowBox[{
       SubscriptBox["x", "0"], ",", 
       SubscriptBox["y", "0"]}],
      TraditionalForm], ")"}], " ", "pont"}], ",", 
   RowBox[{"majd", " ", "megvizsg\[AAcute]lhat\[OAcute]"}], ",", 
   RowBox[{
    RowBox[{"hogy", " ", "az", " ", "adott", " ", "pont", " ", "eleme"}], "-", 
    RowBox[{
    "e", " ", "az", " ", "\[EAcute]rtelmez\[EAcute]si", " ", 
     "tartom\[AAcute]ny", " ", "megadott", " ", 
     RowBox[{
     "r\[EAcute]sz\[EAcute]nek", ".", "\[IndentingNewLine]", 
      "\[IndentingNewLine]"}]}]}]}],
  FontFamily->"Courier New",
  FontSize->16]], "Text",
 CellChangeTimes->{{3.67171494776085*^9, 3.671715038734989*^9}, {
  3.6717152559902573`*^9, 3.671715461029502*^9}, {3.671715507692746*^9, 
  3.67171558012034*^9}, {3.671716514882427*^9, 3.6717167816672897`*^9}, {
  3.6717168157723804`*^9, 3.6717168419583654`*^9}, {3.6717168832714996`*^9, 
  3.6717169865790157`*^9}, {3.6717260205662823`*^9, 3.671726144259039*^9}, {
  3.67172947636139*^9, 3.67172947689577*^9}},
 TextAlignment->Center],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x_", ",", " ", "y_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", " ", 
       SuperscriptBox["\[ExponentialE]", "y"]}], ")"}], 
     RowBox[{"Cos", "[", "x", "]"}]}], "+", 
    RowBox[{"y", " ", 
     SuperscriptBox["\[ExponentialE]", "y"]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.670223652894607*^9, 3.670223663791419*^9}, {
   3.670223778370696*^9, 3.6702238661913524`*^9}, {3.67118810683663*^9, 
   3.671188132601985*^9}, 3.671534860457135*^9},
 Background->RGBColor[0.88, 1, 0.88]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Column", "[", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Show", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Plot3D", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"f", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", "0", ",", "15"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"y", ",", "0", ",", "15"}], "}"}], ",", 
            RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
            RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quality\>\""}], ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Directive", "[", 
                RowBox[{"Green", ",", 
                 RowBox[{"Opacity", "[", ".4", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                RowBox[{"Gray", ",", " ", 
                 RowBox[{"Opacity", "[", ".4", "]"}]}], "]"}]}], "}"}]}], ",", 
            RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", " ", 
            RowBox[{"Ticks", "\[Rule]", "None"}], ",", 
            RowBox[{"RegionFunction", "\[Rule]", 
             RowBox[{"Function", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
               RowBox[{
                RowBox[{"25", "<", 
                 RowBox[{
                  SuperscriptBox["x", "2"], "+", 
                  SuperscriptBox["y", "2"]}], "<", "100"}], " ", "&&", " ", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["x", "2"], "+", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"10", "-", "y"}], ")"}], "2"]}], "<", "120"}], 
                " ", "&&", " ", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"10", "-", "x"}], ")"}], "2"], "+", 
                  SuperscriptBox["y", "2"]}], "<", "85"}]}]}], "]"}]}]}], 
           "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
             RowBox[{"Point", "[", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "0"}], "}"}], "]"}], ",", " ", 
             RowBox[{"Text", "[", 
              RowBox[{
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"Row", "[", 
                  RowBox[{"{", "\"\<(x,y)\>\"", "}"}], "]"}], ",", "12"}], 
                "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"a", ",", 
                 RowBox[{"b", "-", ".5"}], ",", "0"}], "}"}]}], "]"}], ",", 
             RowBox[{"Opacity", "[", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"25", "<", 
                  RowBox[{
                   SuperscriptBox["a", "2"], "+", 
                   SuperscriptBox["b", "2"]}], "<", "100"}], " ", "&&", " ", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["a", "2"], "+", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"10", "-", "b"}], ")"}], "2"]}], "<", "120"}], 
                 " ", "&&", " ", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"10", "-", "a"}], ")"}], "2"], "+", 
                   SuperscriptBox["b", "2"]}], "<", "85"}]}], ",", "2", ",", 
                "0"}], "]"}], "]"}], ",", "Dashed", ",", "Thick", ",", 
             "Black", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"a", ",", "b", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"a", ",", "b", ",", 
                  RowBox[{"f", "[", 
                   RowBox[{"a", ",", "b"}], "]"}]}], "}"}]}], "}"}], "]"}], 
             ",", 
             RowBox[{"Point", "[", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", 
                RowBox[{"f", "[", 
                 RowBox[{"a", ",", "b"}], "]"}]}], "}"}], "]"}]}], "}"}], 
           "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Style", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Row", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"\"\<(x,y)\>\"", ",", "Italic"}], "]"}], ",", " ", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"25", "<", 
                 RowBox[{
                  SuperscriptBox["a", "2"], "+", 
                  SuperscriptBox["b", "2"]}], "<", "100"}], " ", "&&", " ", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["a", "2"], "+", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"10", "-", "b"}], ")"}], "2"]}], "<", "120"}], 
                " ", "&&", " ", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"10", "-", "a"}], ")"}], "2"], "+", 
                  SuperscriptBox["b", "2"]}], "<", "85"}]}], ",", 
               RowBox[{"Style", "[", 
                RowBox[{"\"\<\[Element]\>\"", ",", "Italic"}], "]"}], ",", 
               RowBox[{"Style", "[", 
                RowBox[{"\"\<\[NotElement]\>\"", ",", "Italic"}], "]"}]}], 
              "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\< az \[EAcute]rtelmez\[EAcute]si tartom\[AAcute]nynak\>\"", 
               ",", "Italic"}], "]"}]}], "}"}], "]"}], ",", "14"}], 
         "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", 
      RowBox[{"Alignment", "->", "Center"}]}], "\[IndentingNewLine]", "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "5", ",", "x"}], "}"}], ",", "0", ",", "10", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}], ",", 
      RowBox[{"ControlPlacement", "\[Rule]", "Left"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "5", ",", "y"}], "}"}], ",", "0", ",", "10", ",", 
      " ", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}], ",", " ", 
      RowBox[{"ControlPlacement", "\[Rule]", "Left"}]}], "}"}], ",", 
    "\[IndentingNewLine]", " ", 
    RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "\[IndentingNewLine]", 
   "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.6711846634871693`*^9, 3.6711846726907735`*^9}, {
   3.6711852785505075`*^9, 3.67118528006621*^9}, {3.6711853405849915`*^9, 
   3.6711856473041196`*^9}, {3.6711859633088913`*^9, 
   3.6711860394883823`*^9}, {3.6711862106046686`*^9, 
   3.6711862542258205`*^9}, {3.6711862889114017`*^9, 
   3.6711863718761244`*^9}, {3.671186402128214*^9, 3.6711864184627953`*^9}, {
   3.6711864547310085`*^9, 3.6711864561919584`*^9}, {3.6711864871683726`*^9, 
   3.6711868884934483`*^9}, {3.67118694195196*^9, 3.6711869587322626`*^9}, {
   3.671187026842573*^9, 3.6711870861229057`*^9}, {3.6711871920442867`*^9, 
   3.6711872043822603`*^9}, {3.6711876025888505`*^9, 3.671187618383359*^9}, {
   3.671187650584948*^9, 3.6711876599448776`*^9}, {3.671187986001854*^9, 
   3.671188010239843*^9}, {3.671188196997754*^9, 3.671188365460618*^9}, 
   3.671188400046397*^9, {3.6711884470437183`*^9, 3.671188480578201*^9}, {
   3.6711885267552166`*^9, 3.6711885284678297`*^9}, {3.6711885672238035`*^9, 
   3.671188571538789*^9}, {3.6711886304122972`*^9, 3.6711887334517207`*^9}, {
   3.671188766933832*^9, 3.671188963987268*^9}, {3.6711893938370275`*^9, 
   3.671189396173646*^9}, {3.6711894540845633`*^9, 3.671189458174059*^9}, {
   3.671189495990052*^9, 3.6711895239312816`*^9}, {3.6711896135073385`*^9, 
   3.67118962159949*^9}, 3.671189719821294*^9, {3.67119024702308*^9, 
   3.671190254754083*^9}, 3.671190317908696*^9, 3.671190392758004*^9, {
   3.6711905344735546`*^9, 3.671190543852516*^9}, {3.6711905844453335`*^9, 
   3.6711905969296274`*^9}, 3.6711906436426954`*^9, 3.6711906916918*^9, {
   3.671204837994006*^9, 3.671204855826928*^9}, {3.6712048876772146`*^9, 
   3.671204895907715*^9}, {3.6712053599438677`*^9, 3.6712054371004343`*^9}, {
   3.671205618293539*^9, 3.6712057355629215`*^9}, {3.671205769101339*^9, 
   3.6712058213412523`*^9}, {3.671205884744629*^9, 3.671206021137791*^9}, {
   3.671331856729228*^9, 3.6713319593703756`*^9}, {3.671332000618263*^9, 
   3.6713320712684593`*^9}, 3.671332103720976*^9, 3.6715324541881237`*^9, {
   3.671532493531247*^9, 3.671532518473918*^9}, {3.6715374966212873`*^9, 
   3.671537501092798*^9}, 3.671537801273463*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 7.58, $CellContext`b$$ = 8.38, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 5, $CellContext`x}, 0, 10}, {{
       Hold[$CellContext`b$$], 5, $CellContext`y}, 0, 10}}, Typeset`size$$ = {
    360., {151.5, 158.5}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`a$160075$$ = 
    0, $CellContext`b$160076$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 5, $CellContext`b$$ = 5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$160075$$, 0], 
        Hold[$CellContext`b$$, $CellContext`b$160076$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Column[{
         Show[
          Plot3D[{
            $CellContext`f[$CellContext`x, $CellContext`y], 
            0}, {$CellContext`x, 0, 15}, {$CellContext`y, 0, 15}, Mesh -> 
           None, PerformanceGoal -> "Quality", PlotStyle -> {
             Directive[Green, 
              Opacity[0.4]], 
             Directive[Gray, 
              Opacity[0.4]]}, ImageSize -> Medium, Ticks -> None, 
           RegionFunction -> 
           Function[{$CellContext`x, $CellContext`y, $CellContext`z}, 
             And[
             25 < $CellContext`x^2 + $CellContext`y^2 < 
              100, $CellContext`x^2 + (10 - $CellContext`y)^2 < 
              120, (10 - $CellContext`x)^2 + $CellContext`y^2 < 85]]], 
          Graphics3D[{
            PointSize[Medium], 
            Point[{$CellContext`a$$, $CellContext`b$$, 0}], 
            Text[
             Style[
              Row[{"(x,y)"}], 12], {$CellContext`a$$, $CellContext`b$$ - 0.5, 
              0}], 
            Opacity[
             If[
              And[
              25 < $CellContext`a$$^2 + $CellContext`b$$^2 < 
               100, $CellContext`a$$^2 + (10 - $CellContext`b$$)^2 < 
               120, (10 - $CellContext`a$$)^2 + $CellContext`b$$^2 < 85], 2, 
              0]], Dashed, Thick, Black, 
            
            Line[{{$CellContext`a$$, $CellContext`b$$, 
               0}, {$CellContext`a$$, $CellContext`b$$, 
               $CellContext`f[$CellContext`a$$, $CellContext`b$$]}}], 
            Point[{$CellContext`a$$, $CellContext`b$$, 
              $CellContext`f[$CellContext`a$$, $CellContext`b$$]}]}]], 
         Style[
          Row[{
            Style["(x,y)", Italic], 
            If[
             And[
             25 < $CellContext`a$$^2 + $CellContext`b$$^2 < 
              100, $CellContext`a$$^2 + (10 - $CellContext`b$$)^2 < 
              120, (10 - $CellContext`a$$)^2 + $CellContext`b$$^2 < 85], 
             Style["\[Element]", Italic], 
             Style["\[NotElement]", Italic]], 
            Style[
            " az \[EAcute]rtelmez\[EAcute]si tartom\[AAcute]nynak", Italic]}],
           14]}, Alignment -> Center], 
      "Specifications" :> {{{$CellContext`a$$, 5, $CellContext`x}, 0, 10, 
         Appearance -> "Labeled", ControlPlacement -> 
         Left}, {{$CellContext`b$$, 5, $CellContext`y}, 0, 10, Appearance -> 
         "Labeled", ControlPlacement -> Left}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{685., {184., 191.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`f[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          Blank[]]] := (1 + E^$CellContext`y) 
         Cos[$CellContext`x] + $CellContext`y E^$CellContext`y}; 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.67120579542293*^9, 3.6712058242832212`*^9}, 
   3.6713319731984897`*^9, {3.671332014536231*^9, 3.67133202109374*^9}, {
   3.671332057236235*^9, 3.671332071928536*^9}, 3.671332121184926*^9, {
   3.671527056094574*^9, 3.6715270624556484`*^9}, 3.6715325195531387`*^9, 
   3.671534886440746*^9, {3.671537762663691*^9, 3.671537802180972*^9}, 
   3.6716053646653404`*^9, 3.671607554299165*^9, 3.6716083712976475`*^9, 
   3.671608421039091*^9, 3.6716098839299903`*^9, 3.6716138543735137`*^9, 
   3.671702837748004*^9, 3.6717073648332787`*^9, 3.671721996624318*^9},
 TextAlignment->Center]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Keresztmetszet", "Section",
 CellChangeTimes->{{3.6713346010925384`*^9, 3.6713346126897535`*^9}},
 FontFamily->"Gill Sans MT",
 FontWeight->"Bold",
 FontColor->RGBColor[1., 1., 1.],
 Background->RGBColor[
  0.25098039215686274`, 0.5019607843137255, 0.5019607843137255]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{
   "A", " ", "k\[ODoubleDot]vetkez\[ODoubleAcute]", " ", "dinamikus", " ", 
    "\[AAcute]bra", " ", "arra", " ", "szolg\[AAcute]l"}], ",", 
   RowBox[{
    RowBox[{"hogy", " ", 
     RowBox[{"(", 
      RowBox[{"3", "-", 
       RowBox[{
       "dimenzi\[OAcute]s", " ", "\[AAcute]bra", " ", 
        "h\[IAcute]j\[AAcute]n"}]}], ")"}], " ", "el", " ", "tudjuk", " ", 
     "k\[EAcute]pzelni", " ", "a", " ", 
     RowBox[{
     "f\[UDoubleDot]ggv\[EAcute]nyfel\[UDoubleDot]letet", ".", " ", "Ehhez"}],
      " ", "valamelyik", " ", "v\[AAcute]ltoz\[OAcute]t", " ", 
     RowBox[{"ler\[ODoubleDot]gz\[IAcute]tj\[UDoubleDot]k", ":", " ", "x"}]}],
     "=", 
    RowBox[{
     RowBox[{
      SubscriptBox["x", "0"], ".", " ", "Ekkor"}], " ", "egy", " ", 
     "egyv\[AAcute]ltoz\[OAcute]s", " ", "f\[UDoubleDot]ggv\[EAcute]nyt", " ",
      "kapunk"}]}], ",", 
   RowBox[{
    RowBox[{
    "mely", " ", "m\[AAcute]r", " ", "\[AAcute]br\[AAcute]zolhat\[OAcute]", 
     " ", "2"}], "-", "dimenzi\[OAcute]ban"}], ",", 
   RowBox[{"az", " ", "yz", " ", 
    RowBox[{"s\[IAcute]kon", ".", "Amennyiben"}], " ", "y", " ", 
    "\[EAcute]rt\[EAcute]k\[EAcute]t", " ", 
    "r\[ODoubleDot]gz\[IAcute]tj\[UDoubleDot]k", " ", 
    RowBox[{"(", 
     RowBox[{"y", "=", 
      SubscriptBox["y", "0"]}], ")"}]}], ",", 
   RowBox[{
   "akkor", " ", "egy", " ", "olyan", " ", "egyv\[AAcute]ltoz\[OAcute]s", " ",
     "f\[UDoubleDot]ggv\[EAcute]ny", " ", "grafikonj\[AAcute]t", " ", 
    "kaphatjuk", " ", "meg", " ", "az", " ", "xz", " ", "s\[IAcute]kon", " ", 
    "\[AAcute]br\[AAcute]zolva"}], ",", 
   RowBox[{
   "melynek", " ", "csak", " ", "az", " ", "x", " ", "a", " ", 
    "f\[UDoubleDot]ggetlen", " ", 
    RowBox[{"v\[AAcute]ltoz\[OAcute]ja", ".", " ", "\[CapitalIAcute]gy"}], 
    " ", "l\[AAcute]thatjuk"}], ",", 
   RowBox[{
   "hogy", " ", "att\[OAcute]l", " ", "f\[UDoubleDot]gg\[ODoubleAcute]en"}], 
   ",", 
   RowBox[{
   "melyik", " ", "tengely", " ", "ir\[AAcute]ny\[AAcute]b\[OAcute]l", " ", 
    "tekintj\[UDoubleDot]k", " ", "a", " ", "f\[UDoubleDot]ggv\[EAcute]nyt"}],
    ",", 
   RowBox[{"milyen", " ", "alakot", " ", "vesz", " ", 
    RowBox[{"fel", ".", " ", "\[IndentingNewLine]"}]}]}],
  FontFamily->"Courier New",
  FontSize->16]], "Text",
 CellChangeTimes->{{3.671706952697447*^9, 3.671707039873147*^9}, {
  3.671726223794132*^9, 3.6717262449009867`*^9}},
 TextAlignment->Center,
 FontFamily->"Gill Sans MT",
 FontSize->28,
 FontWeight->"Bold",
 FontColor->RGBColor[1., 1., 1.],
 Background->RGBColor[
  0.25098039215686274`, 0.5019607843137255, 0.5019607843137255]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{
    StyleBox["P\[EAcute]ld\[AAcute]ul",
     FontSize->20,
     FontVariations->{"Underline"->True},
     FontColor->RGBColor[0., 0.5019607843137255, 0.5019607843137255]], 
    StyleBox[" ",
     FontSize->16], 
    StyleBox["az",
     FontSize->16], 
    StyleBox["  ",
     FontSize->16], 
    StyleBox["f",
     FontSize->16], 
    StyleBox[
     RowBox[{"(", 
      RowBox[{"x", ",", "y"}], ")"}],
     FontSize->16,
     FontWeight->"Bold",
     FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}], 
   StyleBox["=",
    FontSize->16,
    FontWeight->"Bold",
    FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
   StyleBox[
    RowBox[{
     StyleBox[
      RowBox[{"2", " ", 
       SuperscriptBox["x", "2"]}],
      FontWeight->"Bold",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
     StyleBox["-",
      FontWeight->"Bold",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
     StyleBox["3",
      FontWeight->"Bold",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
     StyleBox["+",
      FontWeight->"Bold",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
     RowBox[{
      StyleBox[
       SuperscriptBox["e", 
        RowBox[{"x", "+", 
         RowBox[{"2", " ", "y"}]}]],
       FontWeight->"Bold",
       FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], " ", 
      "f\[UDoubleDot]ggv\[EAcute]ny", " ", "keresztmetszetei", " ", 
      "r\[ODoubleDot]gz\[IAcute]tett", " ", "x", " ", "\[EAcute]s", " ", "y", 
      " ", "\[EAcute]rt\[EAcute]kek", " ", 
      RowBox[{"mellett", ":"}]}]}],
    FontSize->16]}],
  FontFamily->"Courier New"]], "Text",
 CellChangeTimes->{3.6717070546887026`*^9},
 TextAlignment->Center,
 FontFamily->"Gill Sans MT",
 FontSize->28,
 FontWeight->"Bold",
 FontColor->RGBColor[1., 1., 1.],
 Background->RGBColor[
  0.25098039215686274`, 0.5019607843137255, 0.5019607843137255]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", "\n", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Labeled", "[", 
      RowBox[{
       RowBox[{"Plot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"2", 
              RowBox[{"x", "^", "2"}]}], "-", "3", "+", 
             RowBox[{"E", "^", 
              RowBox[{"(", 
               RowBox[{"x", "+", 
                RowBox[{"2", "y"}]}], ")"}]}]}], "/.", 
            RowBox[{"x", "\[Rule]", "1"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"2", 
              RowBox[{"x", "^", "2"}]}], "-", "3", "+", 
             RowBox[{"E", "^", 
              RowBox[{"(", 
               RowBox[{"x", "+", 
                RowBox[{"2", "y"}]}], ")"}]}]}], "/.", 
            RowBox[{"x", "\[Rule]", "2"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", 
           RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<y\>\"", ",", "\"\<z\>\""}], "}"}]}], ",", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"0", ",", "100"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"Pink", ",", " ", "Thick"}], "}"}]}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<x=1 (r\[OAcute]zsasz\[IAcute]n) \[EAcute]s x=2 \
(narancss\[AAcute]rga)\>\"", ",", " ", "14", ",", " ", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}], ",", " ", 
         "Italic"}], "]"}]}], "\n", "\n", "]"}], ",", "\n", 
     RowBox[{"Labeled", "[", "\n", 
      RowBox[{
       RowBox[{"Plot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"2", 
              RowBox[{"x", "^", "2"}]}], "-", "3", "+", 
             RowBox[{"E", "^", 
              RowBox[{"(", 
               RowBox[{"x", "+", 
                RowBox[{"2", "y"}]}], ")"}]}]}], "/.", 
            RowBox[{"y", "\[Rule]", "1"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"2", 
              RowBox[{"x", "^", "2"}]}], "-", "3", "+", 
             RowBox[{"E", "^", 
              RowBox[{"(", 
               RowBox[{"x", "+", 
                RowBox[{"2", "y"}]}], ")"}]}]}], "/.", 
            RowBox[{"y", "\[Rule]", "2"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", 
           RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<x\>\"", ",", "\"\<z\>\""}], "}"}]}], ",", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"0", ",", "100"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"Pink", ",", " ", "Thick"}], "}"}]}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<y=1 (r\[OAcute]zsasz\[IAcute]n) \[EAcute]s y=2 \
(narancss\[AAcute]rga)\>\"", ",", " ", "14", ",", " ", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}], ",", " ", 
         "Italic"}], "]"}]}], "]"}]}], "}"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.671705832879962*^9, 3.6717058364024715`*^9}, {
  3.671705874249978*^9, 3.671705899822131*^9}, {3.671705955738821*^9, 
  3.671706156091999*^9}, {3.671706186520319*^9, 3.6717062167849803`*^9}, {
  3.6717062609323635`*^9, 3.671706477539892*^9}, {3.671706586378532*^9, 
  3.6717066324093037`*^9}, {3.6717066644369946`*^9, 3.6717066651825047`*^9}},
 FontFamily->"Gill Sans MT",
 FontSize->28,
 FontColor->RGBColor[1., 1., 1.],
 Background->RGBColor[
  0.25098039215686274`, 0.5019607843137255, 0.5019607843137255]],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TemplateBox[{GraphicsBox[{{{}, {}, {
           Directive[
            Opacity[1.], 
            AbsoluteThickness[1.6], 
            RGBColor[1, 0.5, 0.5]], 
           LineBox[CompressedData["
1:eJwB8QEO/iFib1JlAgAAAB4AAAACAAAAli+gSy0M4L8AAAAAAAAAAGrYwnCl
89y/MLfEINeVuT88mYEYunjXv3SBqpu+i9M/aN3x21kX0r/oT2QN52vhP0/g
LK3IJMq/jEnQjYfQ6T82v5vX6oS+vx7vrRohRPI/OfBdY95jpL+yS+u2qSn4
PyuD7wrAdaM/Whs+r3Ht/j+vx+6pf1i/P1OleJrGxwNAvUnKODrCyT+mzSBM
q4UIQOuqomlOWNI/8Hg6S1qUDkCdrS6b9LXXP5aIreewzxJAvGGGFTC33D/b
IvhPUawWQHoUmdVPEuE/Gp8RFXmaG0DM0NRE0prjP7EcJTYygyBAccs3Jo8W
5j9KDuhM654jQKTPRBVmyOg/vLWc7TGWJ0CMrLeoB0zrPxR1mue+8CtAAZPU
ScMF7j8ic3PtGMAwQBepq8ekSPA/IRsWfY7PM0DWp4AjBYjxP9RUFwCmUjdA
W6sqhnLi8j81UasnPM47QDybBzvFJfQ/rlW8Xq1dQEDjj7n2JIT1P+sAdJpM
g0NAtCN/6yHc9j8BY7VLUCxHQOCjdzIEHfg/Pi4mdkgwS0DSKEWA83j5Pw7F
ShttKFBAH5pFIMi9+j+1oMhzZPpSQJaqWfk5/Ps/g8dLt302VkCeRrGWgeX8
PwAAAAAAAFlAoCLk+Q==
            "]]}, {
           Directive[
            Opacity[1.], 
            RGBColor[0.880722, 0.611041, 0.142051], 
            AbsoluteThickness[1.6], 
            Thickness[Large]], 
           LineBox[CompressedData["
1:eJwBEQPu/CFib1JlAgAAADAAAAACAAAALj8W6v///79alZlWlYoUQFRqJ4j5
+v+/xl3cfeyKFEB6lTgm8/X/vx9t7ttDixRAx+taYubr/7+jVgo984sUQGCY
n9rM1/+/VtDrllSNFECR8SjLma//vxsX8cchkBRA9KM7rDNf/7/7QHIY55UU
QLoIYW5nvv6/TJz2iSWiFEB/zdbrwWH9v9jTxSU9wBRA6aUZFzcc/L8WHujp
W+EUQCrfSAkP3fq/Wbm451wHFUCkE6P02YL5v4ZXHiveNxVAw1vKjb8/+L/G
R9nPKW0VQByfHCCY4fa/iOioYUCxFUBLQ1t504n1v4Cqs11vABZAH/tmgClJ
9L83YnCfSlcWQC2unYBy7fK/IJGwUDDGFkDgdKEu1qjxv7b+LYQqQBdAaZyR
o5xq8L/U63PJDswXQFh+WSOsIu6/5Y9jL5B+GEAo6ylbVJ7rvz7bClmSQhlA
a05QheLj6L9QJzIT7TwaQFpzTz02Nua/LQoeL+5fG0CTv+hQv7bjv142XP3s
nhxAPwLYVi4B4b9jz44rHzYeQGrYwnCl89y/XlwDhbb1H0A8mYEYunjXv9oW
1FbPGCFAaN3x21kX0r9chRn9dmUiQE/gLK3IJMq/OAOmKoDSI0A2v5vX6oS+
v7S5qNSjpCVAOfBdY95jpL8a4EykjqUnQCuD7wrAdaM/6L7bp/3xKUCvx+6p
f1i/P02s9OXz4CxAvUnKODrCyT+AX8F78AwwQOuqomlOWNI/GUUsudYbMkCd
rS6b9LXXP1ym/EN7gDRAvGGGFTC33D+wBperUiA3QHoUmdVPEuE/AD0q4gt6
OkDM0NRE0prjP96/YUE8KT5Accs3Jo8W5j/25owWXjFBQKTPRBVmyOg/hV0V
rFHjQ0CMrLeoB0zrP58s0Bi82EZAAZPUScMF7j9aF5WTEaBKQBepq8ekSPA/
s+TAb+bITkDWp4AjBYjxPx4yakJyx1FAW6sqhnLi8j8hJbruT9NUQDybBzvF
JfQ/TbcZ71QsWEDhkbuIgGn0PwAAAAAAAFlA6fJ8dA==
            "]]}}}, {
        DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {
           FormBox["\"y\"", TraditionalForm], 
           FormBox["\"z\"", TraditionalForm]}, AxesOrigin -> {0, 0}, 
         DisplayFunction :> Identity, 
         Frame -> {{False, False}, {False, False}}, 
         FrameLabel -> {{None, None}, {None, None}}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> Medium, 
         Method -> {
          "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
           AbsolutePointSize[6], "ScalingFunctions" -> None}, 
         PlotRange -> {{-1.999999918367347, 1.999999918367347}, {0, 100}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}],
       StyleBox[
       "\"x=1 (r\[OAcute]zsasz\[IAcute]n) \[EAcute]s x=2 \
(narancss\[AAcute]rga)\"", 14, FontFamily -> "Courier New", Italic, 
        StripOnInput -> False]},
      "Labeled",
      DisplayFunction->(GridBox[{{
          TagBox[
           ItemBox[
            PaneBox[
             TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
              BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
           "SkipImageSizeLevel"]}, {
          ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
        GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
        AutoDelete -> False, 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
        BaselinePosition -> {1, 1}]& ),
      InterpretationFunction->(RowBox[{"Labeled", "[", 
         RowBox[{#, ",", #2}], "]"}]& )], 
     TemplateBox[{GraphicsBox[{{{}, {}, {
           Directive[
            Opacity[1.], 
            AbsoluteThickness[1.6], 
            RGBColor[1, 0.5, 0.5]], 
           LineBox[CompressedData["
1:eJwtmHlUzd33x28TSpqUQimkCU1Umpwjab5KjwzN9TxCpkgSHo0oEYVoFKXM
[encoded data, 5580 characters]
0rx9OQJ093bmt8QqKv7//yNILsxe5HY9Ff8PP18dAg==
            "]]}, {
           Directive[
            Opacity[1.], 
            RGBColor[0.880722, 0.611041, 0.142051], 
            AbsoluteThickness[1.6], 
            Thickness[Large]], 
           LineBox[CompressedData["
1:eJwd1Ak0VdsbAHCvlyEvMifpkYfOuabIENHd4ZUmUzchZcoceinjQ1SE1CMq
KqmbMjai+X7RIGM9CUmhJP9uoVyXe917ztv9z1pnnfVb39772/vs/e2lAdHu
QXMkJCQq8fvza8xU+0LTNGhIc7zNmgjECl92RCCkYcQ80O7fZwRKLFypPzlF
Q6MM23cvdhPXO2CES8Ng8PNd958SyO/0+b62HhqEUdkpoU8IlPH4evyzThre
2g2HL8KuHmtQe9ROg7w4s7jtMYFmHIfdbz2moe5m5lNr7LzvRGvRNRqcJkK3
mTQS6I6mTdiJSho4ZkoRPxoI9H7dRuncMhqixA+f3sZmlEQ6HDhDwymmyG09
tmtzylDCSRosz6ccUsWO5R1PjcmjIW7bR/rjIwI1brh5PzgTj7/G4lUm9uj+
x15+6TQsyVI23IEtf6Fr2iuZBhuP+hfm2OZtnwq3xNOQk3+SI4+9fZq/YnMM
DYLNRoIvQKB0HZnOtVE0pHAmU5uxyzcv2oPCaNBHgVsqsTviGfI2u2hYunUq
Jhebx15VvcKXhpdlf3zYi63xYtMGI28aXkiElnhjI+GOUf2tNFDethWO2MF6
0RnarjScfKHxqyl2rusBXY2NNBClydVa2LVJeY3Ka2moNx8oU8Duu3zRT24N
DXcW3xv/FVui8xYlZYvby2ZlCzgE0hc/OSthRcM/b5/FfsfeRHTbCE1pWJg/
VsvF3rvlc++kIQ1HPZL+HMU+nTIT+20Z/t/xo8RnbE7FPNXPOjTMibrh+zM+
3KVxa3AJDawuty8/+8tKGLr1qdOwKfrP5p/jLzewG3+ljOdHyoh/5t/m4Zzb
Lo/jqmoZc/H8UtJ8DZrm0dAWzt2liH2pek/zo7k0TGXNLdbGbulJC7lHU3BB
8E7PDHtizgnJWiEFrSE8mbXYasaX2DVTFJypeOLgg23rVbfmygQFsfdbu/dh
Bxx6NlDKpWBuQ0bjcewj13qSi0cocJSMka7Bvto3urhgiIICodzlNuwuSeHd
3H4KHti8LhnDXuqjyT/QSYH284FSa7z/TplGBYntFMTLa1UFYEfdXG227zkF
VF664jHsezL+USEcChr513hc7PYBj17eHdzfYlu7Dj6Pg/Wb7NNvUZCuFBHl
gy0VtFLtXDkFUav85vdiL7I1PsBgUxD95rCsBj7/hsq6X26fo+Dg/dJXO7Hd
GxZwOvMpcHJb0zyBHXRakvDLpcBVSW7aDtdPfPRs3rdMCqzNvH/kYpcs+Rwk
k0yBgpw0yxLXHzeBI7c6hAL13rOvy3G9Uq61ca3+FKTUBqbNx/WsRFQOefpQ
cLSog/5Z3yu7C+ti3CgwF+nFOeH74JBZ5I6KVRSIxsX+qs0EOjUvsMnSkgIO
S6ruOHbloKfpk+UUjCd9HJjfQqCXxxwlB/QoyGbfgQWtBNLkLq5RUaAgv13n
nlU7gUwaFRdelKXAyFj3/XNs+yLpNBNJCv5eYz3g00Gg0HWTrA1CMXxdaZ+U
+4JAdewWUeqwGLKUPIwUOwn0PPFRsNyAGJJ+T9x0F7vfrf5l8RsxdDLozbte
EWiOxMVLdR1ieGLVI2zsIpCzT8Im7h0xWB+Ol2f3EMh/RXR9/C0xdPj5bAno
JdA+2SBtqatisF0gTtV9Q6DiO648bbYYRvSWnbjRR6ARFeKsR64Yuj7I1o69
I1Bqeze3wV8M+9qs4qeG8f72HnxU5SMGjoJe9atPeD3DywsLt+H2S6f+qh3B
+z2bvTpssxhOFybVJY8S6CjBzFOwFoPr8ncGJl9xvoNXLH0VxDCsHsSS5xFI
dIz12/rfxJB4WuuL6hSBdhT/MmgmJYbdO5s1tPkE0r6xPUtKJAJFI3MX2xkC
XXm/oL/mswgmVWJUCkT4frCOTxNxRDD0T15egySJ1P7U8xi5K4JGd9vFk1Ik
inPtZLysFYGPm+L6ZTIksgkx7GJXikDH/PiJU7IkaigY1N94UgQha6x5pxaQ
qGPcqa0oUgTuF3pD1DVI9L+yRQutNEXgcePmak1THA/4EGuzUARjuvZwxoxE
tVpV3XZKIrBPFb1dYk6ilCLbk44yIngcseoraUUipVxfVXfeLDg8GIvzt8P5
95UpR7bNwmiq/kPnDSTKtjdVYP89C+ErTBT0g0kUTQuiL8fNwnurJRbCEBKx
HjS+qNg7C3xWn8y/YST63ZJ1/HroLBSc14GMSBLdJOPkOaxZ0Fh/Jk5pP4n6
FB7Of2M4C3vpdSVVh0jEGHCat+CdEKoi7cWjZSQSreObX+4Rwrt7T1kO5Xg9
19l+dp1CMNd155ZWkmhvOnU7okkI+32v9gZdI9Fdvdrg5zeEsFJ0pkXtLomc
dms9ScsQQvrOsIeq7SQKEUyl8EyEoPHjW3LuNIlWBrArcxhCCJ1RdXATkki2
1bVbR08IKpzf/NXFJLp6tsrITUMIBclVldfnMBCf6d9fM1cILN3enHnyDJSR
0WYd8kYAjrxbzB16DHRJmc17ky6ApbvqN+R7MNCT69I57ckCUB6vNj7qxUCf
Nu9e2hAvAE9HB5UsHwbSP2LhXB4lgBHhos85AQxULmq6EustgBM1UlAXxUDV
n756K5sJoKLL5XVxJgPV3rZs2DQ0A4GB3/Kv3Wegx9tbcoE5AydYsq0GRgbo
5SXlibU2M7CPa2lna2qA3n/zce8wn4HB/R8iXS0M0EzquNo7cgaW9R+TP2Rn
gIwvqZQKlWegoMQmVN3ZABV/3XnTYnQa9NcNbeVHG6A9yZPdVf9Mw0amNC+3
3gBpntfUPj3Eh/NBgXq7XAxRTVGanHU/H/LkriSwWIZodcGI8E03H2LvFl9x
8jJEvlnXXy9u44Nly5EC20BDdDHGMed8PR+qV7h1uMcZIsJpN/9yDh/ueFpd
sC41RObf77fVWfCB47b81TTPEG102J7wKmsKeuJPUtGVRkhrNvgAuZ4H0koJ
4RtJE2R09dyBvd9+gE4Eg2BnLEeD+y4Yd5d/B23/7F+kckxR2Nk89tnwCZgl
amRbqs2QZ4rXH9U6YzA9PudjgoI5IrjkdlYJF9Bjr+yOwxYowtn18IePoxDR
aJfO22CFvGNc7CwtR4CxwJ8RZ2uNTsCoK9R/hN31ft/HVq9CzDm9Hsa/DMHO
a/+GaJXbofDexj1lk/0wbG96cEIRIduiNPV78T3gZXF2Jjx3DQp99/2t18JO
WMTe0WdCOCCXQcOa57otMBBZOGzU5ogs4UzPl0McGE6cXdbOWYusJ3YEvg+8
BPkNUcFaD5yQwcFx2Uf72cztZb+aV77dgK41jVWkegKzWFCgVLtzM3q4vmWl
TWMz823TX/UdX10Qt/JimLNnJ1NFMrawNt4NnasxPsOr62GGrFPXalXbgh74
Z6guv93PLNHdSlbdY6FElaLXLkpDzA+ntnrXVnigtpddjp3FH5lBnepJaqWe
SFJuuJGUG2ZK/P/xQv8Bks1x/g==
            "]]}}}, {
        DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {
           FormBox["\"x\"", TraditionalForm], 
           FormBox["\"z\"", TraditionalForm]}, AxesOrigin -> {0, 0}, 
         DisplayFunction :> Identity, 
         Frame -> {{False, False}, {False, False}}, 
         FrameLabel -> {{None, None}, {None, None}}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> Medium, 
         Method -> {
          "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
           AbsolutePointSize[6], "ScalingFunctions" -> None}, 
         PlotRange -> {{-1.999999918367347, 1.999999918367347}, {0, 100}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}],
       StyleBox[
       "\"y=1 (r\[OAcute]zsasz\[IAcute]n) \[EAcute]s y=2 \
(narancss\[AAcute]rga)\"", 14, FontFamily -> "Courier New", Italic, 
        StripOnInput -> False]},
      "Labeled",
      DisplayFunction->(GridBox[{{
          TagBox[
           ItemBox[
            PaneBox[
             TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
              BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
           "SkipImageSizeLevel"]}, {
          ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
        GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
        AutoDelete -> False, 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
        BaselinePosition -> {1, 1}]& ),
      InterpretationFunction->(RowBox[{"Labeled", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.671706029726329*^9, 3.6717060444809093`*^9}, 
   3.671706162519574*^9, 3.671706225947649*^9, 3.6717062824387245`*^9, {
   3.6717063139363623`*^9, 3.6717063368358746`*^9}, {3.671706394094412*^9, 
   3.671706478183323*^9}, {3.671706594146047*^9, 3.6717066331147847`*^9}, 
   3.6717066659720592`*^9, 3.67170736620328*^9},
 TextAlignment->Center,
 FontFamily->"Gill Sans MT",
 FontSize->28,
 FontWeight->"Bold",
 FontColor->RGBColor[1., 1., 1.],
 Background->RGBColor[
  0.25098039215686274`, 0.5019607843137255, 0.5019607843137255]]
}, {2}]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.6717177389323263`*^9},
 FontFamily->"Gill Sans MT",
 FontSize->28,
 FontColor->RGBColor[1., 1., 1.],
 Background->RGBColor[
  0.25098039215686274`, 0.5019607843137255, 0.5019607843137255]],

Cell[BoxData[
 StyleBox[
  RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
   "N\[EAcute]h\[AAcute]ny", " ", "f\[UDoubleDot]ggv\[EAcute]ny", " ", 
    "keresztmetszete", " ", "szabadon", " ", "v\[AAcute]lasztott", " ", 
    "r\[ODoubleDot]gz\[IAcute]tett", " ", "x", " ", "\[EAcute]s", " ", "y", 
    " ", 
    RowBox[{"mellett", ":"}]}]}],
  FontFamily->"Courier New",
  FontSize->16]], "Text",
 CellChangeTimes->{{3.671707093083469*^9, 3.671707156285241*^9}, {
  3.671726314227974*^9, 3.671726345031846*^9}},
 TextAlignment->Center,
 FontFamily->"Gill Sans MT",
 FontSize->28,
 FontWeight->"Bold",
 FontColor->RGBColor[1., 1., 1.],
 Background->RGBColor[
  0.25098039215686274`, 0.5019607843137255, 0.5019607843137255]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.6717263378677535`*^9, 3.6717263414783125`*^9}},
 FontFamily->"Gill Sans MT",
 FontSize->28,
 FontColor->RGBColor[1., 1., 1.],
 Background->RGBColor[
  0.25098039215686274`, 0.5019607843137255, 0.5019607843137255]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
     "irany", "\[Equal]", "\"\<y=\!\(\*SubscriptBox[\(y\), \(0\)]\)\>\""}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"Grid", "[", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Labeled", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Plot3D", "[", 
            RowBox[{"h", ",", 
             RowBox[{"{", 
              RowBox[{"x", ",", 
               RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"y", ",", 
               RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", " ", 
             RowBox[{"PlotRange", "\[Rule]", "6.2"}], ",", 
             RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quailty\>\""}], ",", 
             " ", 
             RowBox[{"AxesLabel", "\[Rule]", "Automatic"}], ",", 
             RowBox[{"ColorFunction", "\[Rule]", "\"\<CandyColors\>\""}], ",", 
             RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", 
             RowBox[{"Mesh", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"-", "2"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"{", 
                  RowBox[{"a", ",", "Thick"}], "}"}], "}"}]}], "}"}]}]}], 
            "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<f(x,y)\>\"", ",", "16", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}], ",", 
             "Italic"}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Labeled", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Plot", "[", 
            RowBox[{
             RowBox[{"h", "/.", 
              RowBox[{"y", "\[Rule]", "a"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"x", ",", 
               RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
             RowBox[{"PlotRange", "\[Rule]", "6.2"}], ",", 
             RowBox[{"AxesLabel", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"\"\<x\>\"", ",", "\"\<z\>\""}], "}"}]}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"Pink", ",", " ", "Thick"}], "}"}]}], ",", 
             RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{
            "\"\<f(x,y) metszete az xz s\[IAcute]kkal\>\"", ",", " ", "16", 
             ",", " ", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}], ",", 
             " ", "Italic"}], "]"}]}], "]"}]}], "}"}], "}"}], 
      "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Grid", "[", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Labeled", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Plot3D", "[", 
            RowBox[{"h", ",", 
             RowBox[{"{", 
              RowBox[{"x", ",", 
               RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"y", ",", 
               RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", " ", 
             RowBox[{"PlotRange", "\[Rule]", "6.2"}], ",", " ", 
             RowBox[{"AxesLabel", "\[Rule]", "Automatic"}], ",", 
             RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quality\>\""}], ",", 
             RowBox[{"ColorFunction", "\[Rule]", "\"\<CandyColors\>\""}], ",", 
             RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", 
             RowBox[{"Mesh", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"{", 
                  RowBox[{"a", ",", "Thick"}], "}"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"-", "2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<f(x,y)\>\"", ",", "16", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}], ",", 
             "Italic"}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Labeled", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Plot", "[", 
            RowBox[{
             RowBox[{"h", "/.", 
              RowBox[{"x", "\[Rule]", "a"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"y", ",", 
               RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
             RowBox[{"PlotRange", "\[Rule]", "6.2"}], ",", 
             RowBox[{"AxesLabel", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"\"\<y\>\"", ",", "\"\<z\>\""}], "}"}]}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"Pink", ",", " ", "Thick"}], "}"}]}], ",", 
             RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{
            "\"\<f(x,y) metszete az yz s\[IAcute]kkal\>\"", ",", " ", "16", 
             ",", " ", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}], ",", 
             " ", "Italic"}], "]"}]}], "]"}]}], "}"}], "}"}], 
      "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"h", ",", 
       RowBox[{
        RowBox[{"x", "^", "2"}], "-", 
        RowBox[{"y", "^", "2"}], "+", "x", "+", "y"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<f(x,y)\>\"", ",", "Italic", ",", "Bold", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}]}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "2"}], "-", 
        RowBox[{"y", "^", "2"}], "+", "x", "+", "y"}], ",", 
       RowBox[{
        RowBox[{"2", 
         RowBox[{"x", "^", "2"}]}], "-", "3", "+", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"x", "+", 
           RowBox[{"2", "y"}]}], ")"}]}]}], ",", " ", 
       RowBox[{"3", "-", 
        RowBox[{"2", 
         RowBox[{"y", "^", "2"}]}]}], ",", " ", 
       RowBox[{"Log", "[", 
        RowBox[{
         RowBox[{"x", "^", "2"}], " ", "+", "y"}], "]"}], ",", " ", 
       RowBox[{"5", 
        RowBox[{"Cos", "[", 
         RowBox[{"4", 
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{"x", "^", "2"}], "+", 
            RowBox[{"y", "^", "2"}]}], "]"}]}], "]"}]}]}], "}"}], ",", " ", 
     RowBox[{"ControlType", "\[Rule]", "PopupMenu"}]}], "}"}], ",", 
   "\[IndentingNewLine]", "Delimiter", ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "irany", ",", "\"\<x=\!\(\*SubscriptBox[\(x\), \(0\)]\)\>\"", ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<ir\[AAcute]ny\>\"", ",", "Italic", ",", "Bold", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}]}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<x=\!\(\*SubscriptBox[\(x\), \(0\)]\)\>\"", ",", 
       "\"\<y=\!\(\*SubscriptBox[\(y\), \(0\)]\)\>\""}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "Setter"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "0", ",", 
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<\!\(\*SubscriptBox[\(x\), \(0\)]\)/\!\(\*SubscriptBox[\(y\), \(0\
\)]\)\>\"", ",", "Italic", ",", "Bold", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}]}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"-", "2"}], ",", "2", ",", 
     RowBox[{"Appearance", "\[Rule]", "Labeled"}]}], "}"}], ",", " ", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6707273851808186`*^9, 3.6707273892407255`*^9}, {
   3.670727486676937*^9, 3.6707275452205763`*^9}, {3.670728027469483*^9, 
   3.670728107891634*^9}, {3.670728147123152*^9, 3.6707281587974296`*^9}, {
   3.6707282561263695`*^9, 3.6707285568044615`*^9}, {3.670728610588789*^9, 
   3.6707287296447754`*^9}, {3.6707288216905293`*^9, 
   3.6707288247006683`*^9}, {3.6707288843584137`*^9, 
   3.6707289105112467`*^9}, {3.6707289549369307`*^9, 3.670728955323205*^9}, {
   3.6707289932824273`*^9, 3.670728999367752*^9}, {3.6707290336557016`*^9, 
   3.670729064363942*^9}, {3.670729427287603*^9, 3.670729430323739*^9}, {
   3.6707294730586433`*^9, 3.67072953460434*^9}, {3.6707295899165506`*^9, 
   3.6707296072990456`*^9}, {3.670729648733042*^9, 3.6707296834946766`*^9}, {
   3.67073143928557*^9, 3.670731453583028*^9}, {3.6707315458592463`*^9, 
   3.6707316565542912`*^9}, {3.6707317030688763`*^9, 
   3.6707317064783263`*^9}, {3.6708467281585255`*^9, 3.670846775718134*^9}, 
   3.671532406487713*^9, {3.6715347834902496`*^9, 3.6715348723155775`*^9}, {
   3.671536832377364*^9, 3.6715368953890524`*^9}, {3.67153697522445*^9, 
   3.671537079815266*^9}, 3.6715376470918818`*^9, {3.671537702630352*^9, 
   3.6715377394498234`*^9}, {3.6717045411533723`*^9, 3.671704605130145*^9}, {
   3.6717046378896*^9, 3.671704668107922*^9}},
 FontFamily->"Gill Sans MT",
 FontSize->28,
 FontColor->RGBColor[1., 1., 1.],
 Background->RGBColor[
  0.25098039215686274`, 0.5019607843137255, 0.5019607843137255]],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 
    0, $CellContext`h$$ = $CellContext`x + $CellContext`x^2 + $CellContext`y - \
$CellContext`y^2, $CellContext`irany$$ = 
    "x=\!\(\*SubscriptBox[\(x\), \(0\)]\)", Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`h$$], $CellContext`x + $CellContext`x^2 + \
$CellContext`y - $CellContext`y^2, 
       Style[
       "f(x,y)", Italic, Bold, FontFamily -> 
        "Courier New"]}, {$CellContext`x + $CellContext`x^2 + $CellContext`y - \
$CellContext`y^2, -3 + E^($CellContext`x + 2 $CellContext`y) + 
       2 $CellContext`x^2, 3 - 2 $CellContext`y^2, 
       Log[$CellContext`x^2 + $CellContext`y], 5 
       Cos[4 ($CellContext`x^2 + $CellContext`y^2)^Rational[1, 2]]}}, {{
       Hold[$CellContext`irany$$], "x=\!\(\*SubscriptBox[\(x\), \(0\)]\)", 
       Style["ir\[AAcute]ny", Italic, Bold, FontFamily -> "Courier New"]}, {
      "x=\!\(\*SubscriptBox[\(x\), \(0\)]\)", 
       "y=\!\(\*SubscriptBox[\(y\), \(0\)]\)"}}, {{
       Hold[$CellContext`a$$], 0, 
       Style[
       "\!\(\*SubscriptBox[\(x\), \(0\)]\)/\!\(\*SubscriptBox[\(y\), \
\(0\)]\)", Italic, Bold, FontFamily -> "Courier New"]}, -2, 2}}, 
    Typeset`size$$ = {729., {153., 160.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`h$245393$$ = 0, $CellContext`irany$245394$$ = 
    False, $CellContext`a$245395$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 
        0, $CellContext`h$$ = $CellContext`x + $CellContext`x^2 + \
$CellContext`y - $CellContext`y^2, $CellContext`irany$$ = 
        "x=\!\(\*SubscriptBox[\(x\), \(0\)]\)"}, "ControllerVariables" :> {
        Hold[$CellContext`h$$, $CellContext`h$245393$$, 0], 
        Hold[$CellContext`irany$$, $CellContext`irany$245394$$, False], 
        Hold[$CellContext`a$$, $CellContext`a$245395$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      If[$CellContext`irany$$ == "y=\!\(\*SubscriptBox[\(y\), \(0\)]\)", 
        Grid[{{
           Labeled[
            
            Plot3D[$CellContext`h$$, {$CellContext`x, -2, 
              2}, {$CellContext`y, -2, 2}, PlotRange -> 6.2, PerformanceGoal -> 
             "Quailty", AxesLabel -> Automatic, ColorFunction -> 
             "CandyColors", ImageSize -> Medium, 
             Mesh -> {{-2}, {{$CellContext`a$$, Thick}}}], 
            Style["f(x,y)", 16, FontFamily -> "Courier New", Italic]], 
           Labeled[
            Plot[
             
             ReplaceAll[$CellContext`h$$, $CellContext`y -> \
$CellContext`a$$], {$CellContext`x, -2, 2}, PlotRange -> 6.2, 
             AxesLabel -> {"x", "z"}, PlotStyle -> {Pink, Thick}, ImageSize -> 
             Medium], 
            Style[
            "f(x,y) metszete az xz s\[IAcute]kkal", 16, FontFamily -> 
             "Courier New", Italic]]}}], 
        Grid[{{
           Labeled[
            
            Plot3D[$CellContext`h$$, {$CellContext`x, -2, 
              2}, {$CellContext`y, -2, 2}, PlotRange -> 6.2, AxesLabel -> 
             Automatic, PerformanceGoal -> "Quality", ColorFunction -> 
             "CandyColors", ImageSize -> Medium, 
             Mesh -> {{{$CellContext`a$$, Thick}}, {-2}}], 
            Style["f(x,y)", 16, FontFamily -> "Courier New", Italic]], 
           Labeled[
            Plot[
             
             ReplaceAll[$CellContext`h$$, $CellContext`x -> \
$CellContext`a$$], {$CellContext`y, -2, 2}, PlotRange -> 6.2, 
             AxesLabel -> {"y", "z"}, PlotStyle -> {Pink, Thick}, ImageSize -> 
             Medium], 
            Style[
            "f(x,y) metszete az yz s\[IAcute]kkal", 16, FontFamily -> 
             "Courier New", Italic]]}}]], 
      "Specifications" :> {{{$CellContext`h$$, $CellContext`x + \
$CellContext`x^2 + $CellContext`y - $CellContext`y^2, 
          Style[
          "f(x,y)", Italic, Bold, FontFamily -> 
           "Courier New"]}, {$CellContext`x + $CellContext`x^2 + \
$CellContext`y - $CellContext`y^2, -3 + E^($CellContext`x + 2 $CellContext`y) + 
          2 $CellContext`x^2, 3 - 2 $CellContext`y^2, 
          Log[$CellContext`x^2 + $CellContext`y], 5 
          Cos[4 ($CellContext`x^2 + $CellContext`y^2)^Rational[1, 2]]}, 
         ControlType -> PopupMenu}, 
        Delimiter, {{$CellContext`irany$$, 
          "x=\!\(\*SubscriptBox[\(x\), \(0\)]\)", 
          Style[
          "ir\[AAcute]ny", Italic, Bold, FontFamily -> "Courier New"]}, {
         "x=\!\(\*SubscriptBox[\(x\), \(0\)]\)", 
          "y=\!\(\*SubscriptBox[\(y\), \(0\)]\)"}, ControlType -> 
         Setter}, {{$CellContext`a$$, 0, 
          Style[
          "\!\(\*SubscriptBox[\(x\), \(0\)]\)/\!\(\*SubscriptBox[\(y\), \
\(0\)]\)", Italic, Bold, FontFamily -> "Courier New"]}, -2, 2, Appearance -> 
         Labeled}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{780., {242., 249.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.670727654444048*^9, 3.6707287389587345`*^9, 3.6707288279599867`*^9, 
   3.670728912969996*^9, 3.6707289562458715`*^9, 3.670729000324433*^9, 
   3.670729064854294*^9, 3.6707294311243296`*^9, 3.670729485082486*^9, {
   3.670729522421709*^9, 3.670729544873006*^9}, 3.6707296079905376`*^9, {
   3.6707296493975143`*^9, 3.670729684445326*^9}, {3.6707314489807587`*^9, 
   3.670731454206444*^9}, 3.6707315480908327`*^9, {3.670731579953026*^9, 
   3.670731657471916*^9}, 3.6707317071677904`*^9, {3.670846722829749*^9, 
   3.6708467762885666`*^9}, 3.6711873639440336`*^9, 3.671527434504673*^9, {
   3.6715347663010063`*^9, 3.671534784170706*^9}, {3.6715348232794075`*^9, 
   3.671534873233229*^9}, 3.671536898603338*^9, 3.671537024708645*^9, 
   3.671537080955076*^9, 3.6715376477343388`*^9, 3.671605366167406*^9, 
   3.671607555757204*^9, 3.6716083728567553`*^9, 3.6716084225641747`*^9, 
   3.6716098851508803`*^9, 3.6716138558265467`*^9, 3.671702839033918*^9, 
   3.6717046088558216`*^9, 3.6717046696040125`*^9, 3.67170736632935*^9, 
   3.6717163890399103`*^9, 3.6717294534230957`*^9},
 TextAlignment->Center,
 FontFamily->"Gill Sans MT",
 FontSize->28,
 FontWeight->"Bold",
 FontColor->RGBColor[1., 1., 1.],
 Background->RGBColor[
  0.25098039215686274`, 0.5019607843137255, 0.5019607843137255]]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Szintvonalak", "Section",
 CellChangeTimes->{{3.6713310892039475`*^9, 3.671331100928258*^9}},
 FontFamily->"Gill Sans MT",
 FontWeight->"Bold",
 FontColor->RGBColor[1., 1., 1.],
 Background->RGBColor[
  0.25098039215686274`, 0.5019607843137255, 0.5019607843137255]],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{
    RowBox[{"Ha", " ", "az", " ", "f", 
     RowBox[{"(", 
      RowBox[{"x", ",", "y"}], ")"}], " ", 
     "k\[EAcute]tv\[AAcute]ltoz\[OAcute]s", " ", 
     "f\[UDoubleDot]ggv\[EAcute]ny", " ", "grafikonj\[AAcute]t", " ", "a", 
     " ", 
     StyleBox["z",
      FontWeight->"Bold",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}], 
    StyleBox["=",
     FontWeight->"Bold",
     FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
    RowBox[{
     StyleBox["c",
      FontWeight->"Bold",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
     StyleBox["  ",
      FontWeight->"Bold",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
     "egyenlet\[UDoubleAcute]", " ", "s\[IAcute]kkal", " ", 
     "metsz\[UDoubleDot]k", " ", "el"}]}],
   FontFamily->"Courier New",
   FontSize->16], 
  StyleBox[",",
   FontFamily->"Courier New",
   FontSize->16], 
  StyleBox[
   RowBox[{
   "akkor", " ", "a", " ", "kapott", " ", "g\[ODoubleDot]rb\[EAcute]t", " ", 
    "h\[IAcute]vjuk", " ", "a", " ", "c", " ", "magass\[AAcute]ghoz", " ", 
    "tartoz\[OAcute]", " ", 
    RowBox[{"szintvonalnak", ".", " ", "A"}], " ", "keresztmetszetek", " ", 
    "\[EAcute]s", " ", "szintvonalak", " ", 
    "\[AAcute]br\[AAcute]zol\[AAcute]s\[AAcute]val", " ", "m\[AAcute]r", " ", 
    "kerek", " ", "k\[EAcute]pet", " ", "kaphatunk", " ", "arr\[OAcute]l"}],
   FontFamily->"Courier New",
   FontSize->16], 
  StyleBox[",",
   FontFamily->"Courier New",
   FontSize->16], 
  RowBox[{
   StyleBox["hogyan",
    FontFamily->"Courier New",
    FontSize->16], 
   StyleBox[" ",
    FontFamily->"Courier New",
    FontSize->16], 
   StyleBox["n\[EAcute]z",
    FontFamily->"Courier New",
    FontSize->16], 
   StyleBox[" ",
    FontFamily->"Courier New",
    FontSize->16], 
   StyleBox["ki",
    FontFamily->"Courier New",
    FontSize->16], 
   StyleBox[" ",
    FontFamily->"Courier New",
    FontSize->16], 
   StyleBox["a",
    FontFamily->"Courier New",
    FontSize->16], 
   StyleBox[" ",
    FontFamily->"Courier New",
    FontSize->16], 
   RowBox[{
    StyleBox["f\[UDoubleDot]ggv\[EAcute]nyfel\[UDoubleDot]let",
     FontFamily->"Courier New",
     FontSize->16], 
    StyleBox[".",
     FontFamily->"Courier New",
     FontSize->16], 
    StyleBox["\[IndentingNewLine]",
     FontFamily->"Courier New",
     FontSize->16], 
    StyleBox["\[IndentingNewLine]",
     FontFamily->"Courier New",
     FontSize->16], "\[IndentingNewLine]"}]}]}]], "Text",
 CellChangeTimes->{{3.6717151184348907`*^9, 3.671715187185227*^9}, {
   3.6717152835030336`*^9, 3.671715284517726*^9}, {3.671715730403678*^9, 
   3.671715802792742*^9}, {3.67171598151303*^9, 3.6717159945925684`*^9}, 
   3.671717752443906*^9, 3.671725654835349*^9, {3.6717263558084974`*^9, 
   3.67172635642094*^9}},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", "\n", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Labeled", "[", 
      RowBox[{
       RowBox[{"Plot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"2", 
              RowBox[{"x", "^", "2"}]}], "-", "3", "+", 
             RowBox[{"E", "^", 
              RowBox[{"(", 
               RowBox[{"x", "+", 
                RowBox[{"2", "y"}]}], ")"}]}]}], "/.", 
            RowBox[{"x", "\[Rule]", "1"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"2", 
              RowBox[{"x", "^", "2"}]}], "-", "3", "+", 
             RowBox[{"E", "^", 
              RowBox[{"(", 
               RowBox[{"x", "+", 
                RowBox[{"2", "y"}]}], ")"}]}]}], "/.", 
            RowBox[{"x", "\[Rule]", "2"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", 
           RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<y\>\"", ",", "\"\<z\>\""}], "}"}]}], ",", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"0", ",", "100"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"Pink", ",", " ", "Thick"}], "}"}]}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<x=1 (r\[OAcute]zsasz\[IAcute]n) \[EAcute]s x=2 \
(narancss\[AAcute]rga)\>\"", ",", " ", "14", ",", " ", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}], ",", " ", 
         "Italic"}], "]"}]}], "\n", "\n", "]"}], ",", "\n", 
     RowBox[{"Labeled", "[", "\n", 
      RowBox[{
       RowBox[{"Plot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"2", 
              RowBox[{"x", "^", "2"}]}], "-", "3", "+", 
             RowBox[{"E", "^", 
              RowBox[{"(", 
               RowBox[{"x", "+", 
                RowBox[{"2", "y"}]}], ")"}]}]}], "/.", 
            RowBox[{"y", "\[Rule]", "1"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"2", 
              RowBox[{"x", "^", "2"}]}], "-", "3", "+", 
             RowBox[{"E", "^", 
              RowBox[{"(", 
               RowBox[{"x", "+", 
                RowBox[{"2", "y"}]}], ")"}]}]}], "/.", 
            RowBox[{"y", "\[Rule]", "2"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", 
           RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<x\>\"", ",", "\"\<z\>\""}], "}"}]}], ",", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"0", ",", "100"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"Pink", ",", " ", "Thick"}], "}"}]}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<y=1 (r\[OAcute]zsasz\[IAcute]n) \[EAcute]s y=2 \
(narancss\[AAcute]rga)\>\"", ",", " ", "14", ",", " ", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}], ",", " ", 
         "Italic"}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Labeled", " ", "[", 
      RowBox[{
       RowBox[{"ContourPlot", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"2", 
           RowBox[{"x", "^", "2"}]}], "-", "3", "+", 
          RowBox[{"E", "^", 
           RowBox[{"(", 
            RowBox[{"x", "+", 
             RowBox[{"2", "y"}]}], ")"}]}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", 
           RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", 
           RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", 
         RowBox[{"Contours", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], ",", 
         RowBox[{"ContourLabels", "\[Rule]", "True"}], ",", " ", 
         RowBox[{"PlotTheme", "->", "\"\<Scientific\>\""}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<f(x,y)=1 \[EAcute]s f(x,y)=2 szintvonalak\>\"", ",", " ", "14", 
         ",", " ", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}], ",", " ", 
         "Italic"}], "]"}]}], "]"}]}], "}"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.671715291355846*^9, 3.6717154433859324`*^9}, {
  3.6717154795189877`*^9, 3.671715504519183*^9}, {3.6717156275288363`*^9, 
  3.6717157157193727`*^9}, {3.6717158082385907`*^9, 3.671715840559569*^9}, {
  3.6717159200156803`*^9, 3.6717159638843236`*^9}, {3.6717166408226957`*^9, 
  3.671716690118703*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TemplateBox[{GraphicsBox[{{{}, {}, {
           Directive[
            Opacity[1.], 
            AbsoluteThickness[1.6], 
            RGBColor[1, 0.5, 0.5]], 
           LineBox[CompressedData["
1:eJwB8QEO/iFib1JlAgAAAB4AAAACAAAAli+gSy0M4L8AAAAAAAAAAGrYwnCl
89y/MLfEINeVuT88mYEYunjXv3SBqpu+i9M/aN3x21kX0r/oT2QN52vhP0/g
LK3IJMq/jEnQjYfQ6T82v5vX6oS+vx7vrRohRPI/OfBdY95jpL+yS+u2qSn4
PyuD7wrAdaM/Whs+r3Ht/j+vx+6pf1i/P1OleJrGxwNAvUnKODrCyT+mzSBM
q4UIQOuqomlOWNI/8Hg6S1qUDkCdrS6b9LXXP5aIreewzxJAvGGGFTC33D/b
IvhPUawWQHoUmdVPEuE/Gp8RFXmaG0DM0NRE0prjP7EcJTYygyBAccs3Jo8W
5j9KDuhM654jQKTPRBVmyOg/vLWc7TGWJ0CMrLeoB0zrPxR1mue+8CtAAZPU
ScMF7j8ic3PtGMAwQBepq8ekSPA/IRsWfY7PM0DWp4AjBYjxP9RUFwCmUjdA
W6sqhnLi8j81UasnPM47QDybBzvFJfQ/rlW8Xq1dQEDjj7n2JIT1P+sAdJpM
g0NAtCN/6yHc9j8BY7VLUCxHQOCjdzIEHfg/Pi4mdkgwS0DSKEWA83j5Pw7F
ShttKFBAH5pFIMi9+j+1oMhzZPpSQJaqWfk5/Ps/g8dLt302VkCeRrGWgeX8
PwAAAAAAAFlAoCLk+Q==
            "]]}, {
           Directive[
            Opacity[1.], 
            RGBColor[0.880722, 0.611041, 0.142051], 
            AbsoluteThickness[1.6], 
            Thickness[Large]], 
           LineBox[CompressedData["
1:eJwBEQPu/CFib1JlAgAAADAAAAACAAAALj8W6v///79alZlWlYoUQFRqJ4j5
+v+/xl3cfeyKFEB6lTgm8/X/vx9t7ttDixRAx+taYubr/7+jVgo984sUQGCY
n9rM1/+/VtDrllSNFECR8SjLma//vxsX8cchkBRA9KM7rDNf/7/7QHIY55UU
QLoIYW5nvv6/TJz2iSWiFEB/zdbrwWH9v9jTxSU9wBRA6aUZFzcc/L8WHujp
W+EUQCrfSAkP3fq/Wbm451wHFUCkE6P02YL5v4ZXHiveNxVAw1vKjb8/+L/G
R9nPKW0VQByfHCCY4fa/iOioYUCxFUBLQ1t504n1v4Cqs11vABZAH/tmgClJ
9L83YnCfSlcWQC2unYBy7fK/IJGwUDDGFkDgdKEu1qjxv7b+LYQqQBdAaZyR
o5xq8L/U63PJDswXQFh+WSOsIu6/5Y9jL5B+GEAo6ylbVJ7rvz7bClmSQhlA
a05QheLj6L9QJzIT7TwaQFpzTz02Nua/LQoeL+5fG0CTv+hQv7bjv142XP3s
nhxAPwLYVi4B4b9jz44rHzYeQGrYwnCl89y/XlwDhbb1H0A8mYEYunjXv9oW
1FbPGCFAaN3x21kX0r9chRn9dmUiQE/gLK3IJMq/OAOmKoDSI0A2v5vX6oS+
v7S5qNSjpCVAOfBdY95jpL8a4EykjqUnQCuD7wrAdaM/6L7bp/3xKUCvx+6p
f1i/P02s9OXz4CxAvUnKODrCyT+AX8F78AwwQOuqomlOWNI/GUUsudYbMkCd
rS6b9LXXP1ym/EN7gDRAvGGGFTC33D+wBperUiA3QHoUmdVPEuE/AD0q4gt6
OkDM0NRE0prjP96/YUE8KT5Accs3Jo8W5j/25owWXjFBQKTPRBVmyOg/hV0V
rFHjQ0CMrLeoB0zrP58s0Bi82EZAAZPUScMF7j9aF5WTEaBKQBepq8ekSPA/
s+TAb+bITkDWp4AjBYjxPx4yakJyx1FAW6sqhnLi8j8hJbruT9NUQDybBzvF
JfQ/TbcZ71QsWEDhkbuIgGn0PwAAAAAAAFlA6fJ8dA==
            "]]}}}, {
        DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {
           FormBox["\"y\"", TraditionalForm], 
           FormBox["\"z\"", TraditionalForm]}, AxesOrigin -> {0, 0}, 
         DisplayFunction :> Identity, 
         Frame -> {{False, False}, {False, False}}, 
         FrameLabel -> {{None, None}, {None, None}}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> Medium, 
         Method -> {
          "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
           AbsolutePointSize[6], "ScalingFunctions" -> None}, 
         PlotRange -> {{-1.999999918367347, 1.999999918367347}, {0, 100}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}],
       StyleBox[
       "\"x=1 (r\[OAcute]zsasz\[IAcute]n) \[EAcute]s x=2 \
(narancss\[AAcute]rga)\"", 14, FontFamily -> "Courier New", Italic, 
        StripOnInput -> False]},
      "Labeled",
      DisplayFunction->(GridBox[{{
          TagBox[
           ItemBox[
            PaneBox[
             TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
              BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
           "SkipImageSizeLevel"]}, {
          ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
        GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
        AutoDelete -> False, 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
        BaselinePosition -> {1, 1}]& ),
      InterpretationFunction->(RowBox[{"Labeled", "[", 
         RowBox[{#, ",", #2}], "]"}]& )], 
     TemplateBox[{GraphicsBox[{{{}, {}, {
           Directive[
            Opacity[1.], 
            AbsoluteThickness[1.6], 
            RGBColor[1, 0.5, 0.5]], 
           LineBox[CompressedData["
1:eJwtmHlUzd33x28TSpqUQimkCU1Umpwjab5KjwzN9TxCpkgSHo0oEYVoFKXM
[encoded data, 5580 characters]
0rx9OQJ093bmt8QqKv7//yNILsxe5HY9Ff8PP18dAg==
            "]]}, {
           Directive[
            Opacity[1.], 
            RGBColor[0.880722, 0.611041, 0.142051], 
            AbsoluteThickness[1.6], 
            Thickness[Large]], 
           LineBox[CompressedData["
1:eJwd1Ak0VdsbAHCvlyEvMifpkYfOuabIENHd4ZUmUzchZcoceinjQ1SE1CMq
KqmbMjai+X7RIGM9CUmhJP9uoVyXe917ztv9z1pnnfVb39772/vs/e2lAdHu
QXMkJCQq8fvza8xU+0LTNGhIc7zNmgjECl92RCCkYcQ80O7fZwRKLFypPzlF
Q6MM23cvdhPXO2CES8Ng8PNd958SyO/0+b62HhqEUdkpoU8IlPH4evyzThre
2g2HL8KuHmtQe9ROg7w4s7jtMYFmHIfdbz2moe5m5lNr7LzvRGvRNRqcJkK3
mTQS6I6mTdiJSho4ZkoRPxoI9H7dRuncMhqixA+f3sZmlEQ6HDhDwymmyG09
tmtzylDCSRosz6ccUsWO5R1PjcmjIW7bR/rjIwI1brh5PzgTj7/G4lUm9uj+
x15+6TQsyVI23IEtf6Fr2iuZBhuP+hfm2OZtnwq3xNOQk3+SI4+9fZq/YnMM
DYLNRoIvQKB0HZnOtVE0pHAmU5uxyzcv2oPCaNBHgVsqsTviGfI2u2hYunUq
Jhebx15VvcKXhpdlf3zYi63xYtMGI28aXkiElnhjI+GOUf2tNFDethWO2MF6
0RnarjScfKHxqyl2rusBXY2NNBClydVa2LVJeY3Ka2moNx8oU8Duu3zRT24N
DXcW3xv/FVui8xYlZYvby2ZlCzgE0hc/OSthRcM/b5/FfsfeRHTbCE1pWJg/
VsvF3rvlc++kIQ1HPZL+HMU+nTIT+20Z/t/xo8RnbE7FPNXPOjTMibrh+zM+
3KVxa3AJDawuty8/+8tKGLr1qdOwKfrP5p/jLzewG3+ljOdHyoh/5t/m4Zzb
Lo/jqmoZc/H8UtJ8DZrm0dAWzt2liH2pek/zo7k0TGXNLdbGbulJC7lHU3BB
8E7PDHtizgnJWiEFrSE8mbXYasaX2DVTFJypeOLgg23rVbfmygQFsfdbu/dh
Bxx6NlDKpWBuQ0bjcewj13qSi0cocJSMka7Bvto3urhgiIICodzlNuwuSeHd
3H4KHti8LhnDXuqjyT/QSYH284FSa7z/TplGBYntFMTLa1UFYEfdXG227zkF
VF664jHsezL+USEcChr513hc7PYBj17eHdzfYlu7Dj6Pg/Wb7NNvUZCuFBHl
gy0VtFLtXDkFUav85vdiL7I1PsBgUxD95rCsBj7/hsq6X26fo+Dg/dJXO7Hd
GxZwOvMpcHJb0zyBHXRakvDLpcBVSW7aDtdPfPRs3rdMCqzNvH/kYpcs+Rwk
k0yBgpw0yxLXHzeBI7c6hAL13rOvy3G9Uq61ca3+FKTUBqbNx/WsRFQOefpQ
cLSog/5Z3yu7C+ti3CgwF+nFOeH74JBZ5I6KVRSIxsX+qs0EOjUvsMnSkgIO
S6ruOHbloKfpk+UUjCd9HJjfQqCXxxwlB/QoyGbfgQWtBNLkLq5RUaAgv13n
nlU7gUwaFRdelKXAyFj3/XNs+yLpNBNJCv5eYz3g00Gg0HWTrA1CMXxdaZ+U
+4JAdewWUeqwGLKUPIwUOwn0PPFRsNyAGJJ+T9x0F7vfrf5l8RsxdDLozbte
EWiOxMVLdR1ieGLVI2zsIpCzT8Im7h0xWB+Ol2f3EMh/RXR9/C0xdPj5bAno
JdA+2SBtqatisF0gTtV9Q6DiO648bbYYRvSWnbjRR6ARFeKsR64Yuj7I1o69
I1Bqeze3wV8M+9qs4qeG8f72HnxU5SMGjoJe9atPeD3DywsLt+H2S6f+qh3B
+z2bvTpssxhOFybVJY8S6CjBzFOwFoPr8ncGJl9xvoNXLH0VxDCsHsSS5xFI
dIz12/rfxJB4WuuL6hSBdhT/MmgmJYbdO5s1tPkE0r6xPUtKJAJFI3MX2xkC
XXm/oL/mswgmVWJUCkT4frCOTxNxRDD0T15egySJ1P7U8xi5K4JGd9vFk1Ik
inPtZLysFYGPm+L6ZTIksgkx7GJXikDH/PiJU7IkaigY1N94UgQha6x5pxaQ
qGPcqa0oUgTuF3pD1DVI9L+yRQutNEXgcePmak1THA/4EGuzUARjuvZwxoxE
tVpV3XZKIrBPFb1dYk6ilCLbk44yIngcseoraUUipVxfVXfeLDg8GIvzt8P5
95UpR7bNwmiq/kPnDSTKtjdVYP89C+ErTBT0g0kUTQuiL8fNwnurJRbCEBKx
HjS+qNg7C3xWn8y/YST63ZJ1/HroLBSc14GMSBLdJOPkOaxZ0Fh/Jk5pP4n6
FB7Of2M4C3vpdSVVh0jEGHCat+CdEKoi7cWjZSQSreObX+4Rwrt7T1kO5Xg9
19l+dp1CMNd155ZWkmhvOnU7okkI+32v9gZdI9Fdvdrg5zeEsFJ0pkXtLomc
dms9ScsQQvrOsIeq7SQKEUyl8EyEoPHjW3LuNIlWBrArcxhCCJ1RdXATkki2
1bVbR08IKpzf/NXFJLp6tsrITUMIBclVldfnMBCf6d9fM1cILN3enHnyDJSR
0WYd8kYAjrxbzB16DHRJmc17ky6ApbvqN+R7MNCT69I57ckCUB6vNj7qxUCf
Nu9e2hAvAE9HB5UsHwbSP2LhXB4lgBHhos85AQxULmq6EustgBM1UlAXxUDV
n756K5sJoKLL5XVxJgPV3rZs2DQ0A4GB3/Kv3Wegx9tbcoE5AydYsq0GRgbo
5SXlibU2M7CPa2lna2qA3n/zce8wn4HB/R8iXS0M0EzquNo7cgaW9R+TP2Rn
gIwvqZQKlWegoMQmVN3ZABV/3XnTYnQa9NcNbeVHG6A9yZPdVf9Mw0amNC+3
3gBpntfUPj3Eh/NBgXq7XAxRTVGanHU/H/LkriSwWIZodcGI8E03H2LvFl9x
8jJEvlnXXy9u44Nly5EC20BDdDHGMed8PR+qV7h1uMcZIsJpN/9yDh/ueFpd
sC41RObf77fVWfCB47b81TTPEG102J7wKmsKeuJPUtGVRkhrNvgAuZ4H0koJ
4RtJE2R09dyBvd9+gE4Eg2BnLEeD+y4Yd5d/B23/7F+kckxR2Nk89tnwCZgl
amRbqs2QZ4rXH9U6YzA9PudjgoI5IrjkdlYJF9Bjr+yOwxYowtn18IePoxDR
aJfO22CFvGNc7CwtR4CxwJ8RZ2uNTsCoK9R/hN31ft/HVq9CzDm9Hsa/DMHO
a/+GaJXbofDexj1lk/0wbG96cEIRIduiNPV78T3gZXF2Jjx3DQp99/2t18JO
WMTe0WdCOCCXQcOa57otMBBZOGzU5ogs4UzPl0McGE6cXdbOWYusJ3YEvg+8
BPkNUcFaD5yQwcFx2Uf72cztZb+aV77dgK41jVWkegKzWFCgVLtzM3q4vmWl
TWMz823TX/UdX10Qt/JimLNnJ1NFMrawNt4NnasxPsOr62GGrFPXalXbgh74
Z6guv93PLNHdSlbdY6FElaLXLkpDzA+ntnrXVnigtpddjp3FH5lBnepJaqWe
SFJuuJGUG2ZK/P/xQv8Bks1x/g==
            "]]}}}, {
        DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {
           FormBox["\"x\"", TraditionalForm], 
           FormBox["\"z\"", TraditionalForm]}, AxesOrigin -> {0, 0}, 
         DisplayFunction :> Identity, 
         Frame -> {{False, False}, {False, False}}, 
         FrameLabel -> {{None, None}, {None, None}}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> Medium, 
         Method -> {
          "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
           AbsolutePointSize[6], "ScalingFunctions" -> None}, 
         PlotRange -> {{-1.999999918367347, 1.999999918367347}, {0, 100}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}],
       StyleBox[
       "\"y=1 (r\[OAcute]zsasz\[IAcute]n) \[EAcute]s y=2 \
(narancss\[AAcute]rga)\"", 14, FontFamily -> "Courier New", Italic, 
        StripOnInput -> False]},
      "Labeled",
      DisplayFunction->(GridBox[{{
          TagBox[
           ItemBox[
            PaneBox[
             TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
              BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
           "SkipImageSizeLevel"]}, {
          ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
        GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
        AutoDelete -> False, 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
        BaselinePosition -> {1, 1}]& ),
      InterpretationFunction->(RowBox[{"Labeled", "[", 
         RowBox[{#, ",", #2}], "]"}]& )], 
     TemplateBox[{GraphicsBox[
        GraphicsComplexBox[CompressedData["
1:eJyNfXlcjdv3f4RrpsxjdDMklOEiXDtKiAwZMo+ZCRkzE8o8z3PILJE5dpEh
[encoded data, 15540 characters]

         "], {{{
            EdgeForm[], 
            RGBColor[0.292198, 0.342242, 0.606638], 
            GraphicsGroupBox[{
              PolygonBox[CompressedData["
1:eJxNmgmQVtWVx997/X3vIaCI7C000NCAiCLNLiC74AbdLBo3VkEQRATUMOyJ
[encoded data, 7800 characters]
lgfkgvoG32gSx/HNHDWRxXnQeYFldbK/R71W/f8DxeR3hw==
               "]], 
              PolygonBox[CompressedData["
1:eJwtlVlsVlUUhW//e+85UXkg1AiYQEIMYHwxIWKMQ0SJGJQgGipRC4EiBEEg
FBAjagUHECVlkDKUAlWqgCagERFURg2DtAVqm0AZXhRSUCkk+EBj8VssH3bu
WnvvM9xz9tqnT9n056YVkiSZj2XY0Jgka/nOhjwFvpwnSQcJR+FL4Nfhs4if
h6+G7w+QNEn2kXOE2K/wJnARuJb4n3z/gR8mvxL+OPEZ5Hfiayd2DtsLPku8
ivgm+Fj4TPiT8K/JnwI+yphvwBuIzylKkmZ8y4l/im8ceD/xjeAYvJcmfMuI
/0t+A1tsg6+BDyZeTu5V7DR4KPY6eANWRe4NeHdyR2GfgNcx5gr4b+In4SXY
e+BHsV7gzdhE4gfhX4L7YWtYfxfWHzws+izlexrcgO93ckvxVYObWfMdcAU2
kvhd+HZmXuN58HislrG74evBI8hZCX+DnGfB3bEuqf+hB/hecu5nzoHYRvgE
eGXqOW7OFX03OvND/+coV3Nu4bsueK0e2gP8s+CzXQ5/mdzj8Aupz1xnPxGr
Y+wBfJ+Dh0fvbS7WxPgn4DPA5Vgj/Ag5DeQvgo8h9i6+UwWfeSexYnwDwC3c
2TLtS+fB3H9gjeAV2PfgSnLKyK0LXvtO+PvkV8AHwy8y5wX4AnLGUC87iC8E
jyVeU/Ccq8Bv4dua+Q50F2X4FqfOUW418UvE7sBXCK4p1dYk5qzOrQlpQ/r5
MHeNq9alkQXwIdH/Lk19BH8m+mxGwbsF16RqUxrpzK0paasr63Xk1oS0cYb8
s/AS+LzMGqiFT5VeM2v0VfAs7Av4AMaXR2tEWqknfgvr7cF+I7YdPgd8JlgL
0rC0XEN+e+aaKob3hj+S+QxXq1aDtaIz1lmvJf5XZo2l8O26X2JbmX86+Bfs
dGpNS9ul5I9MXQMn4ePgJal7Rit8F/nHpXX1APDDwb2imvkfAr8ZrT3d2dvg
8djSzDV5jHgfbFvmPfciNij4rgYRfwx8azTWHm4DH8vda1SjqtWV8BdSn+HM
aA1Ly9rjPfpf7KfUa2pt/aP+tRHfDvAP2AlwO9Ya/A/6F/l+BH8QXYvSuLQ+
NbhWN+v+wK9g5wvW1CTwaOxBxm6Dl4L7M75v6h52N/i+4NqQb2BwD1EvUY20
8C9pdO9UD1sP/i54r5exU+AsuLZ1h7rLg4yZllmD3eA/566Va9he9Ybce9Ue
v4IXBde+NCKtqKZV26oh1ZLW0Fq6053gesa3am3sAHxR7ruVrwv5F3OvpTus
iO456j1txE+Q34HdnvmObt5VdG0vxPeS+kmwdorh14PvQHehmt8drAlpYxPx
19Sbo/FkfG3MNzq6N+kMdBbqMeo16tn1jH8xeq0HVCO5TVhvmt62VbnX1h61
V/VQ9VL1lI9zvyl6W9TDqoLfAL0Fqqma4DPR2UgzDeRvCX5bVpAzIbrHqdep
py8GtxC/lPqN1FupHOXK1wyfHN1L1SOmqHcFn6XeLL1dIfrfVWM9g984vXXS
8LfBNafa05tSR+5/boMuVA==
               "]]}]}, {
            EdgeForm[], 
            RGBColor[
            0.43644222771871904`, 0.36133083359041734`, 0.49969542361496627`], 
            GraphicsGroupBox[{
              PolygonBox[CompressedData["
1:eJxNmXn8l1MWx396nudepFAZVIxChrxGL7KbsQwZU6SyDRJRGCU7k5hsRUKK
[encoded data, 4860 characters]

               "]], 
              PolygonBox[CompressedData["
1:eJwtmAnYzlUaxl/v/z3nlLJMqazlk7SoaLsS095YWhQa1ERxtdBYaqYog2mz
ZpdtypYQn1Bk56ORlNQnJSqkbaS0jERS5nfP7bo8l/s+z3PO/7znPNv5ijp2
b9ktn8vlKpfJ5Qr8/1TM5V7IcrnpSD9w85TLvYlBb5QtwM0Yq4PtZfDK8B/g
AdwcOQ8+E76WubuRz0Mu1z96rSbMuRw8AVkGr6KPYT8FXgL/CtmF/SHkD+C7
kUvRDUJmgtsw/3pwbeY0Zm4TpBt4KGOz0bdFfwX4bKQqfDDLD2OtInhj+I/I
P7Hfz1gAb0feA1+Lvg9zm7LeWehbIn3AEXkf/XD0c7DtjM1z8DfhOzPbtML2
luSzacdYMfqm8HWcVw/Grgefmbz2PPQjmXtK8tlNhT8Of1RnAq7N2LHoHoSP
gdeEh+Qz1dnOZ2wUuoeRceDTGTsG3TTkxOA9aW+3wfujG4BsZfw3pBK6O5EL
or+hb90FvxCeh1eHj0XuBc/A/mJ0TyAto7+hb22Gr4R/igwAN+N8d4LvRz8R
fQfGLoIPZ/4IdGcwdlzynenuGsGrw+9ChoAvQkZh+0f0nZn7L/iP8O3wrZnv
5BPw09ivQLcSqQ0fgc1E1m+BzTnwucgocEPGXpJvRus6aUx7RWZk9qGB0Weq
sy2FL4EX4KfCN8IXaC/imX/TX8EJqQUuRh4FP4bN5MwxMJa9lGGsGrr1jM1B
Vy35t74oH4SfLx9R7CD1wG8wtgVdX+avA/8Z2QtuxlhrcNnksxsMbw/fyDfW
4k8ZfC18CryW5iPN4bWwL0XflTnXJt+h7lJ7/A+2FbGpB56EPIhuNWPF2I/D
5j74MvRj0bXj/JaCr2asC7qXGZuF7WCkTsF31Ah9OfQv5W1zDbiMfBrdvchl
ui9kVuaYHBK9Z+1daxyP/Z/gZ/J7G8KrwncH72UvNlvRjYS3Br/PNz4Bt2Ns
YOY70F1MYuwa8D2MNUC3AfkMPJSxj9Gdjc3wMs4R5yhfJcdiAZun0ZdgPx7c
hd+7Cnwd+u4Fr7Ee/T2MDQPXRT8UXiV5r88rJtC9hewCD2JsG/qa6N/Ne09F
yT4sX56AdBLHPoFnISeBmyJfsvZjrHELeA+ixJtXvIC/Zf4BnS/6b4JFWDH8
O/hy1vwC/UxkBfwr5vym36YYB3+B/Kp4Qv4Bbov0A69i/TPAPyHHg8srHsGv
Ix/m7WPvsN5VupO8faQk2Ifly78gR+C7o3Orvvk1uJSx1/NeowlzX2XsGXQl
rD80OScrN5eD7wc/iUxDf0BrBu9Je1OMK9arRdtqj9rrTmw+0PrKb+ACY5XB
vZCcbBXD2GbId+BW0bnrGPjJ0Xegu9jHHn5QblLOQH9YNuAKyseZfbq8cmdy
LC5hzkDwadicULBP1gXXRE4qOKcot5yFLMp77DD4Zb7xLHwbMlq+Br+Ub5ei
H6l8wlj1zHeku+qQ7LvKacptjZN9VWf6bnDNUO04gpRVPkveW7HuODinK7fr
TLJoG9l2RC6JzgnKDUtZb12wT8g3lGPfgu9D8uD7kLfB85D24J7MuYG59aN5
A/iY4BqnWvc40gLdwehcVhH9L+D6ybnuv4zdGl3zVfuP0x1Ex6xi9zrlKNaq
Gq0rqzngU+UzBdfsGuCHVJMKPsO/g7+MvrsSfs954EcYm41+E/x8xYLqB/gI
Y1PQnZy89zd0R6rVyNyCc24NbLsqpxSc85X7KyGXwHdwH6PZ37nwGwvOKS/A
H1bPk/eeeoBviK6l6jli9B60lynouyfXDNWOIqSKeg34hrz30BfcMzk3KCc2
Rv9zdGzKp+Rbn0XH3kr4uYrd6LW1p7rM3RudOw6h36v7TT7LBfBe4DrJvVIv
1m+C7enJZ6+aodrxDPIhfDx8TnAOVy4/DB8UHEOKJeUw5TL1ROqN1CNUis6J
yo37kYPo1kevpZ5EvckFSKuC7+iU6D1oL4rZ78FDkmv7KMamB9ds1W75nHzx
m+i7UI78NjqGFEvKIYfgk9Qfoa6A7fPJd667VwzOZ6wffEHBNfAp9UrJvccq
9CeAY/Ld6E6/xj6D14BvwP4V1Wf1P5nvbAv63kfjRz4iX3kiee/6xpPJOU+5
T3taGN3jqdf7STkvuKartleQz4FXBudy5dwrkn1avn0Im8+jc55yn2qUatVa
5cPMNawn+n8H92biPaJ9QL6gmL4S/lpwr6Ma/zf4muBeRzm6G/w2pH/mnu52
8GzkSva+Dl4MXq78Dh6hHBGdc5V7VfPz4NuTc6t6zr8kf0PfUo/6ELghY5+y
n2nIkuAapVq1EJkL7ygfAFdn6SHBNUG1QW+AX4N/k36beuRHomNAsXAQvgv8
fbCvPgD/Trk2OfdORhZKF2yrN43eNnuC3wI6w9WqPcG9m3rI+9VPwLcdrZ+9
4J3lc5l7PPV66qnVW6sHOxbdhYzdWrCPy9e3RPuOzvCD6Bz4/1yonhf9IOTt
vHvCweDN0WddH/v3onsg9ULqSdWbdoWPztyjq1fvcPS89IZ6hb1sCs5tetPc
hL5dsm+rR2mfHBOKDfn05OQeWb3yHvVY0b9Zv13f6BL9JtLbSD3qGng95I7M
Pdh05d/gufKJF6N9SL6kN8sD0W84veWW6wyj34B6C65GpsK3B/d2OmOd9YHo
2qEaq1qrO9RdKid3UT8b7Xu6g07aS3LvpTeG3ho/B7+N9iE70N+I9M5cQyYE
98jqlRXDU4N9WOvpjbpMb4ngt516gtOUK4L3rjPWWY9R/edbixVD4GnRd7VG
PhXtw/LlfnyvDfOvYqx75hr/bPCbSG8jvXn09rk4ujarp9mBfmlwbKina5Tc
c6v3VkwqNpUjlCu05tXgm1WTM7/JNwe/kfVWVs84QG/b6NyhHly9+KvBsaAY
bMDcism1QTlfuX9x8N2o571b55dc+/WG1Vt2U/RvLeI3l+qug98Sys/qDdQD
qBeQj8xGVyG6t1XP2Ua9SPTZ8S/3e3QOVC7Ubzgx+s50dxORPtE9nHo5/U2h
fHRNUW1Rj1YZ/g6yIvOdbFT+j84d2v9k8PTo3l13PCP6N0mnvzEs0tspuhfS
m34Y+Lno36Y1J0b3VOqt5EPypbbJd6uYbQ1eHv12UI5bAR6HlMvZX8aD50W/
jRVT88GLot9WipHF4DuTey29GT7iW32jf7veBHob/A9UlUck
               "]]}]}, {
            EdgeForm[], 
            RGBColor[0.972554, 0.79695, 0.5], 
            GraphicsGroupBox[{
              PolygonBox[CompressedData["
1:eJxNmgmQVtWVx9/X3/feU0dQTMDJJAbiGGWnZSpibCQsMWwaKZ1R1mhAC5UA
[encoded data, 6600 characters]
ItvIScthndeDb19oe1lkWz7o/jV+d7HH/z+ijspK
               "]], 
              PolygonBox[CompressedData["
1:eJwllmlsV0UUxd9/mXlGZTOCgiSA1gUQNCiggiIqLhgiKREqVUBAZQkFZGvR
skNksSIFFBWqBdEYwCKrLFFoQCV8MTEhGpW9oNaNxRWX38n5cJJz596ZN3Pn
3jOvzdCxhSXZJElWgjy4NCZJu1ySDARj0yR5OSTJKsZ7YrfHdxXoDh8DzsO/
wb8365iv4RfAZfgGgKP4T2AvYeEhoBvr1WEvhT8F7sI+iX2K+Z8R/wXxUxib
BO8MmmL/CErg14NL4AE0hxeB4/AGoD18MvgZfl1qXgCuhTcGHfhWR9AE3oWY
YZoLDsKPRe+1KfiPvTyCPR3eh/g12CPAas62IJMk4+FPgwx8H5gBn6Y9E38x
KIefjN5bK3ARfDgxfzF/J/HPwxsx1iHnOX3hndhTV/hscAu8BWPd4KPBWfhq
5rTNeU/a21nsWvJ1lP29QnwvxibmnLP74feBCfCH8FcTO46Yap1F58fXA3sE
fCT4CH9p6rvWHq7A3xr0gheCC7rv1LkpAy3hDcANzG0LGsJnskaWs+3ljIPh
XbUevgpwJDjnyv06MBXeEyzPeo174Hen3otqQrUxP/pb2sML0Wtora3Yldir
sEfxvZ6MtWHu4uhc98Buhd0vunbqiCmEL2PsS3z3gv3MPQ8+5fsnsF/FNy86
16rZufCVwWuVqwawz2FXslYpY32IvwMMhi8Gx/A1V05yvoMW8LbM6Qd/DkT4
nYwNz7sH1AtXM/YAvo3YM/CdYWx6xjXeI3pNrV0MbsM/nrGf2O8GMA4+FP9Z
cv2+9gTfBqrxHQdv4S9gThVze4N28Mfx78q4BlWLjVVTedeEauM0Y/XMHYX9
TOo9aW/KmXJ3SjXB3v4F38FPR/P5uh/m7gRrs+7hd6NrXLX+N98bAy8BO+A1
jJXBBwZznUFn+T1aW5rwvT+je0q9pZoaC/8j2qeaVm1vkh7xrcPgNewbU/eq
NKt96hpXrW8Bc7CXEl+X+MzjsccF16pyUg6/JnVtqKaqsH9gfiZvjZBWzMT/
IHwzY7PhjVLXfhFrzNNaYGPWd7Sd+EnYVRlrhrTjE8a+zbnm9sD/Ac2YL82d
hb+I9WZjr2BgAPwI/t+IbwiKpSWgb86aMQD+cHRtbSN+H/NvTq0dvcFN8EWg
OOc5BcQOxl6Yt2YcJP4lxtbnXIMVui/wes4aPhVeS8xm+K9gd/Q39K1zoBP2
99FarBzVw3cHa/kw0J1vNZOe5Z3zZepd7Nq8e+RK4uemvhvlVLndEK3977H+
aJ0ttVZIA89g7wmufdXoJuwXo98evQGL4LNS343O/Dax68Em+KOM3YpvWnAt
qgafCO4Z9c457NHwqcG8BhTDPw/udZ2haeo1tJbekHX4OmP3z/sOa6TNqXtN
Gi2tVk+oN6QBFcFvht6ONaw/Ev5xcK9Jg6XFW4J7/THQBfvD4LdyELgdewj2
CeYuB0Xwsui70B2VqlaitVpvckv4s8Hf0pwJ8MnBZ6sHU+BPBnPV6MTgN0Jv
hWp0P/MPYc/Juyb78/1B0svEb57ePr2pelulMSXw+WBH3nM0txD7AHs7ohyk
rmHVsjR/YPSbpbdLmiftUw+pl1QjqhVpsrRZmivt/UU9nvMb3zC6xlRr0tRd
wTlSrqTJ24NzqFzqDdqM3TF1b2iPC6RtwW+J7lB3WRfde9I4ad0hUJ9zDx6O
rknV5gHsGvib0dojzd3KWivU31lr0geqrehYraG11ga/RcrJ5dH/HPr3UM9V
4psU3WvSkIm6z+B/CZ15CfY70doujd2Br3Xqt089/ZXuJjrXqnnVvt4svV3q
8Tew/weT7kkr
               "]]}]}}, {{}, {
            Directive[
             AbsoluteThickness[1]], 
            LineBox[CompressedData["
1:eJwV1FWIFVEcwOERTGywFWwx1u7uQBFlFfNBFMEHYQ3sQtfuxsBYW8FYu7Gw
0BdFUMTu7gRFv//Dt79zzj0zw52Zu2UHDUtNy5IkSQV/0rMlyd/sSZKRI0ky
jevrfl1u7ZE2ND+kDfSwNtIn2kSPaWM9rk31mTbXU9pMT2sLfaGt9Iy21LM6
RF/pHdfJanxQz5mn6XBGkC2uoeetj9RRjCZnnFsvWB+j4xhPLut19KL1Lpqd
Kiwyn8Mr49e85AUD2Gu9t+P60Ivb5nN1HjWoSS162ls3zk9tisZ1Y48O0zxa
TVPY6hzdzLdoFfOqVCCNilSio88/kpcP5OMT1X22TH849oFOZgqd6E5+etOH
isyPc+sC3eaYdJ3ONGYyg4JxT7VA3FddYV8t45VaxLwwN4y76jddrd/1Jufs
u8wlNpu301/85iel43uz1Gf3uM81JlibRCHnWm5+3bgBb3nHG3LzPsR7oV90
lf1fYz8DjO9qGS3Lhnj/7Nuo5c3L0ZZL5it1aqzF82Yx6+I76Xot7bMl8e7w
PO4zT+Mdi3sY94+FtOA7JflGqXgWVOYPZZjNHObSOfY4d8l4Z4z/udYTTeFx
HGM+Q2cyi+Z8pUR8XyY6bkI8o3g+8WzY7Zh6ukevxHtkfFV7aCq3rBcy366p
sU4RPlOYsfZ00PZxHePipMdzs79Y3B/zWcb5NR95aUNrdlnva08/+sf/AB5y
m31kMjR+N+zhVtxPx+zUk/G71hO6I+6vbtKjOliPaEbcF12rB3WgHtA1mrj+
f64DmOs=
             "]]}, {
            Directive[
             AbsoluteThickness[1]], 
            LineBox[CompressedData["
1:eJwV01tMj2EcB/B/ouZwlQtcaGs2zI0ZZg4XzkSLTDbEErUQbXKYOcRCTq2E
dKCUc2zGHOYwjAxZQtOQw43NHOZwZTTxef7b5//9/X7P07v/+/S+CRm5s1ZG
RXx8FXSJRDpiIpF/HKCMg2TERiJN8glVHOEwi82fymfUcZxjLDF/Lls4w1nq
yTR/IVu5wEWizWqoo5pXZpcoUl+WuVzlCq+5xnXyuMkN2rjFbdbR4D7uyM8y
33US1H1lPBVmSfpKWajfyQ76mc0hNexlo9lmNoXfbO9s2SpTZa1Mtueo3K/v
qn6pnquezzxO6ceb/5DZ+p9yjH40u9U9zBrUTep74WzlfXlaTgnnKifJZjlZ
7pGJchpTSWI6581H+bv+DGAQJWaLrLXJx/pa9UP1RPlIvqdM/U4Osz6cbuwL
1zAfyAT1G95yl0Z7N8gPxFJqT5XZWPU44lkYrmPenWJraeH/KRvDmnoBD/Rx
siel6nQ51PoyuZylrCCHb9a/U6LeJUfaFxWeQX0nGaFzeBb10XIIf+2r1HfI
L3ylWF8oR1j/Iyv07fI3BWEW7t2sXN+uPiTz9KtZxVrW8Mk8RvaxZ72MDfek
TuOEenB4B2S9fSnhuZcz9Skk06KfIePCOxTOQP4y2yp76XuTGN47sy0yn4/q
rHC/4Vz0OeGswvNufi6cRzgzmU0WJ8NvYbv1IjLDe0oN1Wwz20uGOp3ycL80
8x+5lIth
             "]]}, {}, {}}, {
           InsetBox[
            FormBox["1", TraditionalForm], 1958], 
           InsetBox[
            FormBox["2", TraditionalForm], 1959]}}], {
        DisplayFunction -> Identity, AspectRatio -> 1, DisplayFunction :> 
         Identity, Frame -> True, FrameStyle -> Automatic, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> Medium, 
         LabelStyle -> {FontFamily -> "Times"}, 
         Method -> {"DefaultBoundaryStyle" -> Automatic}, 
         PlotRange -> {{-2, 2}, {-2, 2}}, PlotRangeClipping -> True, 
         PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.02], 
            Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],StyleBox[
       "\"f(x,y)=1 \[EAcute]s f(x,y)=2 szintvonalak\"", 14, FontFamily -> 
        "Courier New", Italic, StripOnInput -> False]},
      "Labeled",
      DisplayFunction->(GridBox[{{
          TagBox[
           ItemBox[
            PaneBox[
             TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
              BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
           "SkipImageSizeLevel"]}, {
          ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
        GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
        AutoDelete -> False, 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
        BaselinePosition -> {1, 1}]& ),
      InterpretationFunction->(RowBox[{"Labeled", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.6717158751092687`*^9, 3.6717159209793663`*^9, {3.671715959549263*^9, 
   3.6717159649781036`*^9}, {3.6717166566078935`*^9, 3.671716691187462*^9}},
 TextAlignment->Center]
}, {2}]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.6717256849507504`*^9, 3.6717256867970695`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{
    RowBox[{
    "Az", " ", "al\[AAcute]bbi", " ", "dinamikus", " ", "\[AAcute]bra", " ", 
     "n\[EAcute]h\[AAcute]ny", " ", "f\[UDoubleDot]ggv\[EAcute]ny", " ", 
     "3"}], "-", 
    RowBox[{"dimenzi\[OAcute]s", " ", "\[AAcute]br\[AAcute]j\[AAcute]t"}]}],
   FontFamily->"Courier New",
   FontSize->16], 
  StyleBox[",",
   FontFamily->"Courier New",
   FontSize->16], 
  RowBox[{
   StyleBox["illetve",
    FontFamily->"Courier New",
    FontSize->16], 
   StyleBox[" ",
    FontFamily->"Courier New",
    FontSize->16], 
   StyleBox["szintvonalait",
    FontFamily->"Courier New",
    FontSize->16], 
   StyleBox[" ",
    FontFamily->"Courier New",
    FontSize->16], 
   StyleBox["mutatja",
    FontFamily->"Courier New",
    FontSize->16], 
   StyleBox[" ",
    FontFamily->"Courier New",
    FontSize->16], 
   RowBox[{
    StyleBox["be",
     FontFamily->"Courier New",
     FontSize->16], 
    StyleBox[".",
     FontFamily->"Courier New",
     FontSize->16], 
    StyleBox["\[IndentingNewLine]",
     FontFamily->"Courier New",
     FontSize->16], "\[IndentingNewLine]"}]}]}]], "Text",
 CellChangeTimes->{{3.6717160093980904`*^9, 3.671716121735394*^9}, 
   3.6717177594438763`*^9, 3.671726373875338*^9},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Grid", "[", 
    RowBox[{"{", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Labeled", "[", 
        RowBox[{
         RowBox[{"Plot3D", "[", 
          RowBox[{
           RowBox[{"g", "*", "c"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", 
             RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", 
             RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
           RowBox[{"PlotRange", "\[Rule]", "6"}], ",", 
           RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
           RowBox[{"AxesLabel", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"ColorFunction", "\[Rule]", "\"\<CandyColors\>\""}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", 
           RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quality\>\""}]}], "]"}],
          ",", 
         RowBox[{"Style", "[", 
          RowBox[{"\"\<f(x,y)\>\"", ",", " ", "16", ",", 
           RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}], ",", 
           "Italic"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Labeled", "[", 
        RowBox[{
         RowBox[{"ContourPlot", "[", 
          RowBox[{
           RowBox[{"g", "*", "c"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", 
             RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", 
             RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", 
           RowBox[{"ColorFunction", "\[Rule]", "\"\<CandyColors\>\""}], ",", 
           RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quality\>\""}]}], "]"}],
          ",", 
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<Szintvonalas \[AAcute]br\[AAcute]zol\[AAcute]s\>\"", ",", "16",
            ",", 
           RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}], ",", 
           "Italic"}], "]"}]}], "]"}]}], "}"}], "}"}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"g", ",", 
       RowBox[{
        RowBox[{"x", "^", "2"}], "-", 
        RowBox[{"y", "^", "2"}], "+", "x", "+", "y"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<f(x,y)\>\"", ",", "Italic", ",", "Bold", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}]}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "2"}], "-", 
        RowBox[{"y", "^", "2"}], "+", "x", "+", "y"}], ",", 
       RowBox[{
        RowBox[{"2", 
         RowBox[{"x", "^", "2"}]}], "-", "3", "+", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"x", "+", 
           RowBox[{"2", "y"}]}], ")"}]}]}], ",", " ", 
       RowBox[{"3", "-", 
        RowBox[{"2", 
         RowBox[{"y", "^", "2"}]}]}], ",", " ", 
       RowBox[{"Log", "[", 
        RowBox[{
         RowBox[{"x", "^", "2"}], " ", "+", "y"}], "]"}], ",", " ", 
       RowBox[{"3", 
        RowBox[{"Cos", "[", 
         RowBox[{"4", 
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{"x", "^", "2"}], "+", 
            RowBox[{"y", "^", "2"}]}], "]"}]}], "]"}]}]}], "}"}], ",", " ", 
     RowBox[{"ControlType", "\[Rule]", "PopupMenu"}]}], "}"}], ",", 
   "Delimiter", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", "0", ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<c\>\"", ",", "Italic", ",", "Bold"}], "]"}], ",", 
       RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}]}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "2", ",", " ", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.670595953251614*^9, 3.670595963903157*^9}, {
   3.6705960121134186`*^9, 3.6705961696282682`*^9}, {3.670596899196784*^9, 
   3.6705969436954093`*^9}, {3.6705970300965786`*^9, 3.670597047207711*^9}, {
   3.670597091739359*^9, 3.6705971255443835`*^9}, {3.670597616656169*^9, 
   3.6705979353164935`*^9}, {3.67059796637654*^9, 3.6705980062568827`*^9}, {
   3.670598038193579*^9, 3.6705982468680725`*^9}, {3.670598279119988*^9, 
   3.670598319232495*^9}, {3.6705983996486464`*^9, 3.6705984057549915`*^9}, 
   3.6705984924663143`*^9, {3.67059852791448*^9, 3.6705985394466815`*^9}, {
   3.670598626291148*^9, 3.670598642696808*^9}, 3.67059870892288*^9, {
   3.6705987604525213`*^9, 3.670598763331541*^9}, {3.6705988755685*^9, 
   3.6705989313281336`*^9}, {3.670598968956812*^9, 3.6705989890710864`*^9}, {
   3.6705992368911304`*^9, 3.6705992488856554`*^9}, {3.6705994149550734`*^9, 
   3.67059943889109*^9}, {3.6705994727821703`*^9, 3.6705995002607045`*^9}, {
   3.670599853758607*^9, 3.67059987039363*^9}, {3.6707267066551237`*^9, 
   3.670726712876339*^9}, {3.6707275782110853`*^9, 3.6707276386758413`*^9}, {
   3.670727730666967*^9, 3.6707277309682026`*^9}, {3.6707277937660885`*^9, 
   3.6707277982102256`*^9}, {3.6707278368558626`*^9, 3.670727842221898*^9}, 
   3.670727910797927*^9, 3.670727967944795*^9, 3.6707285321789694`*^9, {
   3.670729198826394*^9, 3.6707291992096457`*^9}, {3.6707292392686677`*^9, 
   3.670729280681347*^9}, {3.670729779945013*^9, 3.6707298154628596`*^9}, {
   3.6707298770994787`*^9, 3.6707298968027616`*^9}, {3.6707299361179714`*^9, 
   3.670729941568184*^9}, {3.6707299989832478`*^9, 3.670730063152253*^9}, 
   3.670730202178692*^9, {3.6707302799340916`*^9, 3.6707303425843477`*^9}, {
   3.6707304204360504`*^9, 3.6707304907173896`*^9}, {3.6707305377385283`*^9, 
   3.6707305437888556`*^9}, {3.670730589925917*^9, 3.6707306674540005`*^9}, {
   3.6707307258737955`*^9, 3.670730733302075*^9}, {3.6707309713852034`*^9, 
   3.670730990967392*^9}, {3.670731040994757*^9, 3.670731131005368*^9}, {
   3.6707311642700386`*^9, 3.6707312028387303`*^9}, {3.670731255683474*^9, 
   3.6707312967129326`*^9}, {3.6707313490726213`*^9, 3.670731349558939*^9}, {
   3.670731401684291*^9, 3.670731414958723*^9}, 3.67153242748685*^9, {
   3.6715324610023274`*^9, 3.671532515096704*^9}, {3.6715325482151575`*^9, 
   3.6715326445857263`*^9}, {3.671532826709846*^9, 3.6715328650170712`*^9}, 
   3.671533095206111*^9, {3.6715332254454613`*^9, 3.6715332287948217`*^9}, {
   3.6715337868961983`*^9, 3.671533811372917*^9}, {3.671536406467699*^9, 
   3.6715365497040205`*^9}, {3.671536630712994*^9, 3.671536633849223*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 
    0.41000000000000014`, $CellContext`g$$ = 3 
    Cos[4 ($CellContext`x^2 + $CellContext`y^2)^Rational[1, 2]], 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`g$$], $CellContext`x + $CellContext`x^2 + \
$CellContext`y - $CellContext`y^2, 
       Style[
       "f(x,y)", Italic, Bold, FontFamily -> 
        "Courier New"]}, {$CellContext`x + $CellContext`x^2 + $CellContext`y - \
$CellContext`y^2, -3 + E^($CellContext`x + 2 $CellContext`y) + 
       2 $CellContext`x^2, 3 - 2 $CellContext`y^2, 
       Log[$CellContext`x^2 + $CellContext`y], 3 
       Cos[4 ($CellContext`x^2 + $CellContext`y^2)^Rational[1, 2]]}}, {{
       Hold[$CellContext`c$$], 0, 
       Style["c", Italic, Bold], FontFamily -> "Courier New"}, -2, 2}}, 
    Typeset`size$$ = {729., {184.5, 191.5}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`g$36906$$ = 0, $CellContext`c$36907$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`c$$ = 
        0, $CellContext`g$$ = $CellContext`x + $CellContext`x^2 + \
$CellContext`y - $CellContext`y^2}, "ControllerVariables" :> {
        Hold[$CellContext`g$$, $CellContext`g$36906$$, 0], 
        Hold[$CellContext`c$$, $CellContext`c$36907$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Grid[{{
          Labeled[
           
           Plot3D[$CellContext`g$$ $CellContext`c$$, {$CellContext`x, -5, 
             5}, {$CellContext`y, -5, 5}, PlotRange -> 6, Mesh -> None, 
            AxesLabel -> Automatic, ColorFunction -> "CandyColors", ImageSize -> 
            Medium, PerformanceGoal -> "Quality"], 
           Style["f(x,y)", 16, FontFamily -> "Courier New", Italic]], 
          Labeled[
           
           ContourPlot[$CellContext`g$$ $CellContext`c$$, {$CellContext`x, -5,
              5}, {$CellContext`y, -5, 5}, ImageSize -> Medium, ColorFunction -> 
            "CandyColors", PerformanceGoal -> "Quality"], 
           Style[
           "Szintvonalas \[AAcute]br\[AAcute]zol\[AAcute]s", 16, FontFamily -> 
            "Courier New", Italic]]}}], 
      "Specifications" :> {{{$CellContext`g$$, $CellContext`x + \
$CellContext`x^2 + $CellContext`y - $CellContext`y^2, 
          Style[
          "f(x,y)", Italic, Bold, FontFamily -> 
           "Courier New"]}, {$CellContext`x + $CellContext`x^2 + \
$CellContext`y - $CellContext`y^2, -3 + E^($CellContext`x + 2 $CellContext`y) + 
          2 $CellContext`x^2, 3 - 2 $CellContext`y^2, 
          Log[$CellContext`x^2 + $CellContext`y], 3 
          Cos[4 ($CellContext`x^2 + $CellContext`y^2)^Rational[1, 2]]}, 
         ControlType -> PopupMenu}, Delimiter, {{$CellContext`c$$, 0, 
          Style["c", Italic, Bold], FontFamily -> "Courier New"}, -2, 2, 
         Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{780., {263., 270.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.6715328430234604`*^9, 3.6715328667012887`*^9}, 
   3.671533097954091*^9, 3.6715332319360523`*^9, {3.6715337916235857`*^9, 
   3.6715338120774183`*^9}, 3.671536471426886*^9, 3.671536550217386*^9, 
   3.6715366344516506`*^9, 3.671538691963529*^9, 3.671605365416895*^9, 
   3.671607554941648*^9, 3.6716083720251718`*^9, 3.6716084217186017`*^9, 
   3.6716098846615334`*^9, 3.671613855218114*^9, 3.671702838508567*^9, 
   3.671707365661895*^9},
 TextAlignment->Center]
}, {2}]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.671725625032194*^9, 3.671725625699669*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Parci\[AAcute]lis deriv\[AAcute]ltak", "Section",
 CellChangeTimes->{{3.67152673445048*^9, 3.671526752636946*^9}},
 FontFamily->"Gill Sans MT",
 FontWeight->"Bold",
 FontColor->RGBColor[1., 1., 1.],
 Background->RGBColor[
  0.25098039215686274`, 0.5019607843137255, 0.5019607843137255]],

Cell[BoxData[{
 StyleBox[
  RowBox[{
   StyleBox[
    RowBox[{"f", ":", 
     RowBox[{"D", "\[Subset]", 
      RowBox[{
       RowBox[{
        FormBox[
         RowBox[{
          SuperscriptBox["\[DoubleStruckCapitalR]", "2"], "\[Rule]", 
          "\[DoubleStruckCapitalR]"}],
         TraditionalForm], ".", "\[IndentingNewLine]", "x"}], " ", "szerinti",
        " ", "parci\[AAcute]lis", " ", "deriv\[AAcute]lt"}]}], ":", 
     StyleBox[
      FormBox[
       StyleBox[
        RowBox[{
         UnderscriptBox["lim", 
          RowBox[{"h", "\[Rule]", "0"}]], 
         FractionBox[
          RowBox[{
           RowBox[{"f", "(", 
            RowBox[{
             RowBox[{"x", "+", "h"}], ",", "y"}], ")"}], "-", 
           RowBox[{"f", "(", 
            RowBox[{"x", ",", "y"}], ")"}]}], "h"]}],
        FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]],
       TraditionalForm],
      FontWeight->"Bold"]}],
    FontSize->16], 
   StyleBox[",",
    FontSize->16], 
   StyleBox[
    RowBox[{"ha", " ", "l\[EAcute]tezik", " ", "\[EAcute]s", " ", 
     RowBox[{"v\[EAcute]ges", ".", "\[IndentingNewLine]", "     ", "y"}], " ",
      "szerinti", " ", "parci\[AAcute]lis", " ", 
     RowBox[{"deriv\[AAcute]lt", ":", 
      StyleBox[
       FormBox[
        RowBox[{
         UnderscriptBox["lim", 
          RowBox[{"h", "\[Rule]", "0"}]], 
         FractionBox[
          RowBox[{
           RowBox[{"f", "(", 
            RowBox[{"x", ",", 
             RowBox[{"y", "+", "h"}]}], ")"}], "-", 
           RowBox[{"f", "(", 
            RowBox[{"x", ",", "y"}], ")"}]}], "h"]}],
        TraditionalForm],
       FontWeight->"Bold",
       FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}]}],
    FontSize->16], 
   StyleBox[",",
    FontSize->16], 
   StyleBox[
    RowBox[{"ha", " ", "l\[EAcute]tezik", " ", "\[EAcute]s", " ", 
     RowBox[{"v\[EAcute]ges", ".", " ", "\[IndentingNewLine]", 
      StyleBox[
       RowBox[{" ", " "}]], 
      StyleBox[
       RowBox[{" ", " "}]], 
      StyleBox[
       RowBox[{" ", " "}]], "A"}], " ", "parci\[AAcute]lis", " ", 
     "deriv\[AAcute]ltak", " ", "definici\[OAcute]j\[AAcute]b\[OAcute]l", " ",
      "az", " ", "k\[ODoubleDot]vetkezik"}],
    FontSize->16], 
   StyleBox[",",
    FontSize->16], 
   StyleBox[
    RowBox[{
    "hogy", " ", "amikor", " ", "valamelyik", " ", "v\[AAcute]ltoz\[OAcute]", 
     " ", "szerint", " ", "parci\[AAcute]lisan", " ", "deriv\[AAcute]lunk"}],
    FontSize->16], 
   StyleBox[",",
    FontSize->16], 
   StyleBox[" ",
    FontSize->16], 
   StyleBox[
    RowBox[{
    "akkor", " ", "az", " ", "egyv\[AAcute]ltoz\[OAcute]s", " ", 
     "f\[UDoubleDot]ggv\[EAcute]nyek", " ", "deriv\[AAcute]l\[AAcute]sakor", 
     " ", "megtanult", " ", "szab\[AAcute]lyokat", " ", "alkalmazzuk", " ", 
     RowBox[{"(", 
      RowBox[{"\[ODoubleDot]sszegre", ",", "szorzatra", ",", 
       RowBox[{
       "h\[AAcute]nyadosra", " ", "vonatkoz\[OAcute]", " ", 
        "deriv\[AAcute]l\[AAcute]si", " ", "szab\[AAcute]lyok"}]}], ")"}]}],
    FontSize->16], 
   StyleBox[",",
    FontSize->16], 
   StyleBox["\[UAcute]gy",
    FontSize->16], 
   StyleBox[",",
    FontSize->16], 
   StyleBox[
    RowBox[{
    "hogy", " ", "mindazokat", " ", "a", " ", "v\[AAcute]ltoz\[OAcute]kat"}],
    FontSize->16], 
   StyleBox[",",
    FontSize->16], 
   StyleBox[
    RowBox[{"amelyek", " ", "szerint", " ", "nem", " ", "deriv\[AAcute]lunk"}],
    FontSize->16], 
   StyleBox[",",
    FontSize->16], 
   RowBox[{
    StyleBox["konstansnak",
     FontSize->16], 
    StyleBox[" ",
     FontSize->16], 
    RowBox[{
     StyleBox["tekintj\[UDoubleDot]k",
      FontSize->16], 
     StyleBox[".",
      FontSize->16], 
     StyleBox["\[IndentingNewLine]",
      FontSize->16], 
     StyleBox["\[IndentingNewLine]",
      FontSize->16], 
     StyleBox["P\[EAcute]lda",
      FontSize->20,
      FontVariations->{"Underline"->True},
      FontColor->RGBColor[0., 0.5019607843137255, 0.5019607843137255]]}]}]}],
  FontFamily->"Courier New"], "\[IndentingNewLine]", 
 RowBox[{
  StyleBox[
   RowBox[{"Tekints\[UDoubleDot]k", " ", "az", "  ", 
    StyleBox["f",
     FontWeight->"Bold",
     FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
    StyleBox[
     RowBox[{"(", 
      RowBox[{"x", ",", "y"}], ")"}],
     FontWeight->"Bold",
     FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}],
   FontFamily->"Courier New",
   FontSize->16], 
  StyleBox["=",
   FontFamily->"Courier New",
   FontSize->16,
   FontWeight->"Bold",
   FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
  RowBox[{
   StyleBox[
    FormBox[
     FractionBox["1", 
      RowBox[{
       SuperscriptBox["x", "4"], "+", 
       SuperscriptBox["y", "2"], "+", "1"}]],
     TraditionalForm],
    FontFamily->"Courier New",
    FontSize->16,
    FontWeight->"Bold",
    FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
   RowBox[{
    StyleBox["f\[UDoubleDot]ggv\[EAcute]nyt",
     FontFamily->"Courier New",
     FontSize->16], "."}]}]}]}], "Text",
 CellChangeTimes->{{3.6717190228005095`*^9, 3.6717190551516314`*^9}, {
   3.671719087296068*^9, 3.6717191242802114`*^9}, {3.671719172882003*^9, 
   3.6717194479156923`*^9}, {3.671719488232379*^9, 3.6717197798119707`*^9}, {
   3.6717198300394897`*^9, 3.671719953779668*^9}, {3.67172000152641*^9, 
   3.6717201708984365`*^9}, {3.671722970321592*^9, 3.6717230390463033`*^9}, 
   3.6717232428170385`*^9, {3.6717233243943653`*^9, 3.6717233509678574`*^9}, 
   3.671723415783797*^9, {3.6717252192759333`*^9, 3.671725283875213*^9}, {
   3.671725336997858*^9, 3.671725372519122*^9}, {3.671725408111396*^9, 
   3.671725421586973*^9}, {3.671725473080472*^9, 3.671725488648509*^9}},
 TextAlignment->Center],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"fp", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], "=", 
   FormBox[
    FractionBox["1", 
     RowBox[{
      SuperscriptBox["x", "4"], "+", 
      SuperscriptBox["y", "2"], "+", "1"}]],
    TraditionalForm]}], ";"}]], "Input",
 CellChangeTimes->{{3.6717230528458333`*^9, 3.6717230834954877`*^9}, 
   3.6717251704313364`*^9, 3.6717252193379574`*^9},
 Background->RGBColor[0.88, 1, 0.88]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"parcx", "=", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"fp", "[", 
     RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.671723087847528*^9, 3.671723133677405*^9}, {
   3.6717250928371897`*^9, 3.6717251185534725`*^9}, 3.6717251821176405`*^9},
 Background->RGBColor[0.88, 1, 0.88]],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["x", "3"]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      SuperscriptBox["x", "4"], "+", 
      SuperscriptBox["y", "2"]}], ")"}], "2"]]}]], "Output",
 CellChangeTimes->{3.671723184927346*^9, 3.671724182797521*^9, 
  3.6717242935935783`*^9, 3.6717250771982164`*^9, 3.6717251825989885`*^9},
 Background->RGBColor[0.88, 1, 0.88]]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{
   "Teh\[AAcute]t", " ", "az", " ", "x", " ", "szerinti", " ", 
    "parci\[AAcute]lis", " ", 
    RowBox[{"deriv\[AAcute]lt", ":", 
     StyleBox[
      FormBox[
       SubsuperscriptBox["f", "x", "'"],
       TraditionalForm],
      FontWeight->"Bold",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}]}], 
   StyleBox["=",
    FontWeight->"Bold",
    FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
   StyleBox[
    RowBox[{"-", 
     RowBox[{
      FractionBox[
       RowBox[{"4", " ", 
        SuperscriptBox["x", "3"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["x", "4"], "+", 
          SuperscriptBox["y", "2"]}], ")"}], "2"]], "."}]}],
    FontWeight->"Bold",
    FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}],
  FontFamily->"Courier New",
  FontSize->16]], "Text",
 CellChangeTimes->{{3.671723360665043*^9, 3.671723366670371*^9}, {
  3.6717251565725117`*^9, 3.6717251566305532`*^9}, {3.671725462890212*^9, 
  3.6717254670861864`*^9}},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"parcy", "=", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"fp", "[", 
     RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6717232649808083`*^9, 3.6717232858341055`*^9}, 
   3.6717251871502438`*^9},
 Background->RGBColor[0.88, 1, 0.88]],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"2", " ", "y"}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      SuperscriptBox["x", "4"], "+", 
      SuperscriptBox["y", "2"]}], ")"}], "2"]]}]], "Output",
 CellChangeTimes->{
  3.6717232872600255`*^9, 3.6717241828235397`*^9, 3.6717242936531377`*^9, {
   3.6717250887823086`*^9, 3.671725114584648*^9}, 3.6717251877786636`*^9},
 Background->RGBColor[0.88, 1, 0.88]]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{
   "Teh\[AAcute]t", " ", "az", " ", "y", " ", "szerinti", " ", 
    "parci\[AAcute]lis", " ", 
    RowBox[{"deriv\[AAcute]lt", ":", 
     StyleBox[
      FormBox[
       SubsuperscriptBox["f", "y", "'"],
       TraditionalForm],
      FontWeight->"Bold",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}]}], 
   StyleBox["=",
    FontWeight->"Bold",
    FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
   RowBox[{
    RowBox[{
     StyleBox[
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", "y"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", 
           SuperscriptBox["x", "4"], "+", 
           SuperscriptBox["y", "2"]}], ")"}], "2"]]}],
      FontWeight->"Bold",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], ".", 
     "\n", "Az"}], " ", "al\[AAcute]bbi", " ", "\[AAcute]br\[AAcute]kon", " ",
     "j\[OAcute]l", " ", "megfigyelhet\[ODoubleAcute]", " ", "a", " ", 
    "k\[UDoubleDot]l\[ODoubleDot]nbs\[EAcute]g", " ", "a", " ", "k\[EAcute]t",
     " ", "parci\[AAcute]lis", " ", "deriv\[AAcute]lt", " ", 
    RowBox[{"k\[ODoubleDot]z\[ODoubleDot]tt", "."}]}]}],
  FontFamily->"Courier New",
  FontSize->16]], "Text",
 CellChangeTimes->{{3.6717233932530775`*^9, 3.6717233988295794`*^9}, {
  3.671724039322517*^9, 3.671724101391763*^9}, {3.671725145485633*^9, 
  3.6717251455526533`*^9}},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{"{", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Labeled", "[", 
      RowBox[{
       RowBox[{"Plot3D", "[", 
        RowBox[{
         RowBox[{"fp", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", 
           RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", 
           RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<x\>\"", ",", "\"\<y\>\"", ",", "\"\<z\>\""}], "}"}]}],
          ",", 
         RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
         RowBox[{"ColorFunction", "\[Rule]", 
          RowBox[{"Function", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", " ", 
            RowBox[{
             RowBox[{"ColorData", "[", "\"\<CandyColors\>\"", "]"}], "[", "z",
              "]"}]}], "]"}]}], ",", 
         RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], ",", 
       "\"\<f(x,y)\>\""}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Labeled", "[", 
      RowBox[{
       RowBox[{"Plot3D", "[", 
        RowBox[{"parcx", ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", 
           RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", 
           RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<x\>\"", ",", "\"\<y\>\"", ",", "\"\<z\>\""}], "}"}]}],
          ",", 
         RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
         RowBox[{"ColorFunction", "\[Rule]", 
          RowBox[{"Function", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", " ", 
            RowBox[{
             RowBox[{"ColorData", "[", "\"\<CandyColors\>\"", "]"}], "[", "z",
              "]"}]}], "]"}]}], ",", 
         RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], ",", 
       "\"\<x szerinti parci\[AAcute]lis deriv\[AAcute]lt\>\""}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Labeled", "[", 
      RowBox[{
       RowBox[{"Plot3D", "[", 
        RowBox[{"parcy", ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", 
           RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", 
           RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<x\>\"", ",", "\"\<y\>\"", ",", "\"\<z\>\""}], "}"}]}],
          ",", 
         RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
         RowBox[{"ColorFunction", "\[Rule]", 
          RowBox[{"Function", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", " ", 
            RowBox[{
             RowBox[{"ColorData", "[", "\"\<CandyColors\>\"", "]"}], "[", "z",
              "]"}]}], "]"}]}], ",", 
         RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], ",", 
       "\"\<y szerinti parci\[AAcute]lis deriv\[AAcute]lt\>\""}], "]"}]}], 
    "\[IndentingNewLine]", "}"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.6717238723507595`*^9, 3.671723994878689*^9}, {
   3.6717250946664886`*^9, 3.6717250956622243`*^9}, 3.6717251925120263`*^9}],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TemplateBox[{Graphics3DBox[
        GraphicsComplex3DBox[CompressedData["
1:eJx0vWV0VlfXf02R4qG4B4dSilvQ4FakOMVdi0twd2txt5bgbsEJEBcSiBA0
[encoded data, 61560 characters]
spo=
         "], {{{
            EdgeForm[], 
            Directive[
             Specularity[
              GrayLevel[1], 3], 
             RGBColor[0.880722, 0.611041, 0.142051], Lighting -> "Neutral"], 
            GraphicsGroup3DBox[{
              Polygon3DBox[CompressedData["
1:eJxMnXeYFEXXxWfz7sx0z8zCIpgVA4qCqAiSUUAEQVHEgJjIBhAVc8aMEcEc
[encoded data, 41460 characters]
3TNB
               "]], 
              Polygon3DBox[CompressedData["
1:eJxNnXeYFMX39Wd2J/bM7s5MzywKEgRBkKAYQFGCmMiIIgiiICaMmAOiIgiC
[encoded data, 31620 characters]
zPnGeofeO9PmtoL15+y1uWb07zsH1kV9F3M+sP8Dah/j8Q==
               "]], 
              Polygon3DBox[CompressedData["
1:eJwV13mcz3UeB/DvmDGDiIaRY1yjcWQYjDMiohkzGfdtmHHEZhNhGCn3bSI6
tnbbDiUiSpRbLMumyKAcZVkyrnEsywPRPn9/eMhzXq/3+/M9fj+qNujFriML
BUFwyK/CfhUtEwRvPhwEnz4UBHfAnEeCoGdMEIxgC9h7bAC7XjoIctn77DQb
xSLY5BJB8HqxIMgwtF2pIIjSDWNxLN/8vSWDoJjcVLaEDZZLlfuFDTMvx7xM
87qZl6ZbhjVmEyOCIJxFyU3RXaybqZusW8eZt8sdlJsVGQRfykXqBnLV5M76
z932Rsq9IbdM7pYdM+Xayz3MEtlwO66b9xArrFtD94buYd0U9ohcQ7nRcnfl
0sw7z+6yUlFB8LN5yXKlWAM2Uu623DOsJKvPRrCbrDiLtKOmHbfs+NmOVFZa
rpHceLnAvA4smiWxsey+bkfWgvVnD1h1uXRnucDusdLOcpz9we4UD4IKdhww
7gs72umWkKsnN1T3inld5C6y31lZ3V9168rNc76Vumvc5yFyAbtrXkWW549f
mZepe1U3jMfrXtYtIldIt7rcRbl9ct3lLsndt6O83Cm5Xuwye8Bi2Rn2uO5s
3eW6y+ztZ28Vuc1yP4TeA8/3E7ln5Z5g/dg911GVrZJrZ1dPZ2lbJAjaRAfB
UtaGdWPNWTO2mXVg/VgX1pl94b1qbl6aeXvMq2zeMrm2obPLtZRrIfe5XDO5
VLldchXl1si1l+sl116undx6lsz6sDSWyj7TbarbQXeHbjndT1kTlsK2sRi2
QTdFt69uum5H3dpyq9yXbaF30n3Jdl9WyD0t10OutVwruSWsMqvPdrinj7EJ
LIbVZMtYUTaOlWE12FIWyXaxZ9kA1te8PuxV9iirzVbJlWTbWCrrz7rLdWMv
s7KsFlshV5wdYS+yqSxP7gX2FqvCGrBdcjXZVFaOPc7WsGiWx0ayKeyA7vNs
B0tjGawX68nCvAf3/DnWfTniXfvazz92rxq7p8nu6Wb3NNo9vcleYx+wsz77
Y9hw3U7yo/TfMC/LvPtyr8stlSuQmySXa2+sXD25zc5XWe623EK5D+Xy5bLl
ArnF7GN2jU1md+UWsY/YRZbDwu29b1ZlZz6htsXsCPaAVWEn2XYWbt4S3U90
b+hO0y0s94dcVbnTcjvlCrHfWSV2lG1ka3Wf8XtvnuLakp05jm0xb795r/gc
LTcvnm1lB9gUtpLNYOV16+iudb0xurNZBZbA1rNy7Dl2XTec1WH/1V3EKskl
sm2smtwe9yBT7iU70lxHK7kPWSP2DNvgGZVkf2dJrD1bz4qzrfrx3vumrq1B
mO+N0Dtmxza5H+WmO/NquXmsop/VtXeDvRX1Ytkmue9D36dyH8l9Z0cWG8PS
naUN68d+teOqHW+GB8E6n60f2CC5sXJd5NrJlXCfa8qlyA13lt/sq8h6svEs
wueykm4s68UmsChWlT3GBrIprAprxuJZJpvK4lgL1padY1Ghv1edZT+rwHqw
bLkwuQpsMLvhfGVc7yDXe9v57rjel50pl93yzF93D9rI/aYbad5J8/bpPs3y
WZHQZ4EdZI+yBqyrHbNcWzh7hNVhz7Kx7LrZ5VkS684WsKJyw1icnz1t7wNn
SbS3L3vb+TbYUd+9zw3dZ/YXtpElsUXsojNn687RzXfmabr15ObbscqOta53
mB292Qu6r+ku9TyG6J7UfUl3hu4J3WzdRLkFup/rrtd9Xvc5Vk2urdw950uQ
K8caynWTm+s6IuXOmjdWbpbcafMmyZ1mY9hMdpLlsHw2js1mZ9lkVsq8x81L
M2+0eVf8fAi76cwxckPtvevMT7GzcoVdxwn3fq+9rdh/WDg7wnaymmwG+8S8
91xHV1aZ9WETWQlWg9Vms9inbCnrzXqxP9uba94H7lWWvS3Yv+UC9r0dG+Vq
sZlsme4Huj3Yk+w0KySXJ7ed1WDT2cdy78p1YglsLvuMrWJZoX+HsTlsBVvB
BrCW7BQLM++AeVtYNdafvSJXVi6RtWZnWITcUbndrBLrzXLkislVZ9XZADaZ
xbLGoX8fsL7sZVaK1WYlWW2WykZ6Hpc8j4dZLdaBjWDn2VD2P/eqrGc03DO6
717d8Hxz/Gw+u+b5zvd8o+USdDvqjte96ecxLJF1ZlPYfRbHMtirrLyzNHSW
sqw+68KmywWsKuvHJrHScgmsDKvHOrFX5O6aV5rVZelsIrvNirJw9hgrMG4/
u+XME/2+wJlvOPNrznyNTWDzWAGbw7rotna9me5zMe9GoutN8F33uXnbQ/8W
dZYcZ0lkq9m37A6bxDrrttIdqBulm6A7Sa4Iq8DifWefksthUaw8i2O/smwW
ycqxKuw4SzevJctgYebVMK+h3Bp7d9j7u72T5TLl/imXH3p3fW/slstie9j5
0HvF9rLJukVZRVbLjjO6M9lDrBKrxy6wTuyYHZdCn33v2nLWlR1nl0Pfa2wl
O8SG6Gbr9nK+VDuOsefYBJbBOrOf2FA2nvVlHdmPbDAbx7qzZHbK/e9qxxA7
9niW0Xb0cB3Py82Xe1eun1wxFiEXL3fN8z3oGQ5ku+XOyf3L9e6UO2NeN7mh
ct+ZFxP6nrT3F3aFLXYdX7Luun/Snaf7th29dXvInZArkFsot1puGismFytX
x706F7pXuk+yASxCt7buILaXXQh9RzjLPnbUuzbKOad5145410Y5W3O5jXYc
tyPNjr+Z9wTbxE6wdPY+O6E7Wne67lHdMbpN5b6ROyrXXu4tuQHsr/Zusbel
ve/Y24xtkDsmlyL3jlx/9o7cJrkmckvk+rCRbCFb5jqGsQJ7x9s7196L9s60
N0PuXbnNcs1135JrwL60I8+OJDtm2JHEvmKHWXM2jzUwb4fuId0Fut+E3me5
tXKH5JrIzZbLkLsiF9gb5zvnglxfVsD+CH0+2DnWTbcNGxT6/0tnbsy6sqdY
FivBGrLButdYIfNq6V5l9eVy7V1t7wafoxfsTZHLl7sT6sodlmvK/sGOsMXO
vJU10f1a92fdts68RLee3LdyeXJz5dbJNZJbJ3dErqVcrlwjuZ1yh+UWym2S
ayy3Xu4nudZyi+T2yHUMvdfOnOHe93fv/w/OSSDP
               "]]}]}, {}, {}, {}, {}}, {{
            GrayLevel[0], 
            Line3DBox[CompressedData["
1:eJwl1Edsj3Ecx/GvWTVae68arVGbAw64cOHChYsV40AJvXDhwoWL2dq1arRW
7dGWmrU5UKsRGkEEEUSsxOuJw8v7+UiT///5PU+bMXPhxAW1IqKZf56mRiTX
j/Q6Q1zPJp/i9Iib+pt+fqjanqZruUJ604jvmlU7Ygpj7NVaxmdy7Yw6EZNY
SaF9Rt/ToW5ElT1Bl1NCarOIGm1VL2IcI+2lWkw1OXZ6fZ9DLgV2oVaRmhLx
0B6pORRQp7n/S9ogYljCnqubuc1c+68OcN8zuMVz1lPFfTawkTxKGzsX3cRm
yuwtupVtlNvbdQcFXLR36i52c8neo3sppMLep/s5wGX7oBZRzBX7kB7mCFft
o3qMEq7Zx/UEJ5PnZ5/S05zhhn1Wz3GeSvtCch/Jd+emXZ58z+S7JfdvVyTf
I/ls7vAi+Vye8IB1TKc/+c7vj/O7xSZm23N0KLUZYj9w/juYTy17hDbgsWd2
3/Paq4sZzXY7TV941kXMs5foWFoy3H7t/TjGMlLs8dqed96pR96n07qCieyx
u+on72Ipi+xVOplMRtnfvL+XWUMTe6pm88s7/9z7Xql5zKLSPT9jsOvHeo9B
rgcygJ/JuSS/K2Tzw+6rfejNd7uXZpHJV7un9qA7X+xumkFXPttdtDOd+Gh3
1A6054PdTtvShvd2a21FS97aLbR58rvOG9sthtuKNGrsJuqxRyNe2Q1VwuOL
ly48qvBIwvFHte2ow5GG44u7qf//fvwDw6WTaw==
             "], VertexColors -> None]}, {
            GrayLevel[0.2], 
            Line3DBox[CompressedData["
1:eJwVz0VOA1AYhdFXXJqQEFgAW2IJLADCbnDXeqGKu3uhhRbZBjM4Hfw5932z
NzQyNjwaCSGMu3hfCBP9IcQ4yQSnmORvNIQUp73TnGGGfwMhvAyGkLVntS3O
cZtBr7icPa/lucACI/qrK9qLWolLLLNFf3M79rK2yxXusVWvun17VTvgGg/Z
ptfckb2uHXODJ2zX392pvamdMcZzdugf7sKOa5dM8Iqdet1d20nthinesktv
uDs7rd0zwwd265/u0c5qT9ziM3v0L/dib2sV5vjKXv27+X87r1VZYI1R/af5
D7uofbDEOsts8B/AqVRI
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0EVOQ2EYhtG/uJVCociQCQtiCcyYQNge7u7uVGkp7i6ngy/n7ZPc5N52
9Q709EdCCIPuNBbCUDyEEw7zjCM8Z18ihFE7aY8xxXGm2R0NIcMJv7OcZI5R
zyTdhT2l5TnNAhv1lLu0Z7QiZ3nFmJ521/acdsN53rJJz7g7e0G75yIf2Kxn
3aO9pD1xmc+M6zn3Yq9or1zlG1tK7+je7TXtg+v8ZKued1/2hvbNTf4woRfc
r72l/XGboSmEttK3uYi9o5Vxl+Vs14uuwt7TKrnPKnboV67aPtBqeMhadpb+
E1dnH2n1PGYDTxjlP/BIVJE=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwNy1VOQ1EYhdHDALCWIvUWirs7cyCMgEdIIAwYd6lTwVkPf9Y+383NHZ7u
n3SEEM5cd08I55EQunjBHl6yl0exEK7siH3NKG/Yx2Pfbu2Yfcd+3nOAB50h
DPLBe4iPjDPun6JL2E9aks9MMaGXXNp+0TJ8ZZZJvexy9puWZ5HDTOkVN2KX
tALLHGVar7oxu6KNs8oJZvSam7Rr2hTrnGZWr7sZ+12bZYNzzOnvbt5uagts
cZF5veGW7La2zA+ucFhvulX7U1vjF9c5orfchv2tbfKHWyzobbdt/2o7/OMu
QzSEPf4DlmxADQ==
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwNy2c2A0AYBdBJohNCJHqJ3lmC3mv0TnQi2IJd6+6Pd+6b953J5F6yhUgI
4U2mEiFEkiFMMsppxjjDfCqEIn1WL+YcSzjPZ7dSfUEv4yLLucSCW4W+rFdy
hVVc5Xs8hDXGvddZzQ32+fMhm3qNbYsJZtlv/5Rtvda2wzrucsD+JXt60rbP
eh5w0P4th3rKdsQ0jzlk/5ETvcF2ykaecdj+K+d6k+2CzbzkiP1PcnqL7Yqt
vOaoPaRDuNHbbLds5x3H3CJu93qH7YGdfOS4W9TtSc/Y8uziMyfcYm4Fvdv2
wh6+spdv/AevBCi2
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwVz0VOwEAABdAhwSUhIbBng7u7OzuOwAFwd3d31wtwRN4smvf7f9pO88cn
xyYSQgjTrtnsEApyQphhIedYxHlO5oZQLC/IJVxkKZc4ZSuTl+VyrrCCq5y2
VcprchXXWc0Nzthq5E25llus4zb/skLYYb37XTZwLz7rmcS8EPblRt0Bm3jI
GluS7Uhu1h2zhSfx/bZk26ncqjtjG8/jN20ptgu5XXfJDl7F79tSbddyp+6G
XbyNZ7Kl2e7kbt09e/gQz2ZLtz3Kvbon9vE5nteWYXuR+3WvHOBbPLct0/Yu
D+o+OMTP+C+2LNuXPKz75gh/OMpf/gOyLzJ0
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwNy0VWBEEURcFkAWhDz1kHDlPc3V0ahw3h7u7uzpS1EIM68fLfU+ntw+Wx
uBDCqG82KYTCSAgzLOIciznP8bQQSuwFu5SLLOMSJ7Rye9mu4AorucpJrcpe
s6u5zhpucEqrtTftOm6xntuc1hrsHbuRu2ziHv/iQ9hns/cBW3jIDP8kREM4
slvdjtnGE2Zqidqp3e52xg6eM0tL0i7sTrdLdvGK2Vqydm13u92wh7fM0VK0
O7vX7Z59fGCuFtEe7X63Jw7wmXlaqvZiD7q9cohvzNfStHc75vbBYX6yQItq
X/aI2zdH+cMx/vIfJnpDbQ==
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwVzEVOZGEYhtEfnxACIbgk7AXvGUtgARCCFu4OjXfDwnB3d/dTg5vz3O+9
VUXVtVU1MSGEOs9Kagj16SEss4GrbOQaWzJCaNLrupkb0Rs3GbFF9JZu5Tbb
uBN9t7XrXd3BPXZyP/qNrUsf6G4esodHbLf16mPdxxP28zT6P7YBfaYHec4h
XjA5JYRLDnu/4givWew3WZkh3OhRt1uO8Y4ltmzbvR53e+AEH1lqy7E96Um3
Z/7lC8tsubZXPeX2xmm+s9yWZ/vQM26fnOUXK2z5tm895/bDeYa0ECptBbYY
veAWy3+M4x9boS1e/3dL4CITucQk/gLJV0u9
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwNydVRA1AURdHHHw4huEYI7k4PaOiAAmCGAvAucHd3t8ZYH3fWnnvi07Pp
mYwQwpzLioSwFg0hk+vM5gZzOF8SwqbO1VvM4zbzuWDb0QV6l4XcY4SLtn1d
pA8Y5SGLuWQ70iX6mKU8YRmXbae6XJ+xgues5IrtQlfpS1bzijVctV3rWn3D
Ot4yxhFbXWkIcX3nl+A9kxy1xWz1+sEvxUc2cMwWtzXqJ78mPrOZ47aErUW/
+LXylW2csCVt7frNr4Pv7OSkrd7WpT/8uvnJHqZtKVuv/vLr4zf7OWVrsA3o
H79B/nKIfxzmP08JM+U=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwNy0VORFEURdHHBEgIgT4tdAS4uxZWOBQOCYRB4AwLd3d3nQOr8bP2uyc/
JTYdmYoLIcz4chJCWE0MIZtrzOU68zibFMKGztebLOAWCzln29ZFeofF3GUJ
5217ulTvs4wHLOeC7VBX6CNW8phVXLSd6Gp9yhqesZZLtnNdpy9Yz0s2cNl2
pRv1NZt4wwhXbLe6Wd+xhfds5Vh8CG188G7nI6Ns8U9qcggd+smtk8/sYqst
zdatX9x6+MpettnSbX36za2f7xxguy3DFtMfboP85BCjtkzbsP5yG+E3R9lh
y7KN6R+3cf5ygn+c5D/80kWb
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwNzzVWA2EYhtEfdwlJgJYFYFuhxApqSAju7hAihOBbxN1vMec+871niukY
SfYlSkIIKc9YJITbaAijvGOC90wyHQ/hQY/rR6b4xAke2571pH7hFF85zYzt
Tc/od87yg3PM2j71vP7iAr+5yJztRy/pXy7zjyvM20IshFVdwjWWcp0ntjK9
ocu5yQpusWCr1Nu6ijus5i5PbTV6T9dyn3U8YLExhEPWez9iA9Ps901nq//X
jW4ZNjHLAVuXLaeb3fKM8ISDtm5bQbe4nTLKIodsPbYzHXM7Z5wXHLb12i51
q9sV23jNdt7wH6j2Pys=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwVzuVNBVEYRdFLAyQkQIK7O4+HO1RAA0gBEJrB3d3d3aUlFj8ma893Mslk
DQz1DMaEEIY9s3EhJMWHMMNkzjGF8xxJCCFVL+g0LjKdSxy1ZehlnckVZnGV
Y7ZsvaZzuM5cbnDclqc3dT63WMBtTtgK9Y4u4i6LucdJW4ne16U8YBkPOWUr
10e6gses5AmnbVX6VFfzjBGec8ZWoy90lJes5RVnbXX6Wtfzhg285VNsCHds
9H7PJj6w1zfViSE86ma3J7bwmX22iO1Ft7q9so1v7P//D9u7bnf7YAc/OWCL
2r50p9s3u/jDbv7yDwHjPzM=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0UVSxFAARdHPBqiCAuZsAtgA7o07NO6wI9xWg7u7S+POYZA6N/9VkkFS
o4ORgbgQwrBrISGEzKQQ5pnFRWZziSPJIeToZZ3LFeZxlaO2fL2mC7jOQm5w
zFakN3Uxt1jCbY7bSvWOjnCXZdzjhK1c7+sKHrCSh5y0VekjXc1j1vCEU7Za
farreMZ6nnPa1qAvdCMv2cQrztia9bVu4Q2jvOWsrVXf6Tbes50PnLN16Jju
5CO7+MRYfAjP7Hb/wh6+stUzaSkhvOleZ+/s48f/+23ptk/d7+yLA/z+/6Yt
w/ajB539cogh0f9jHP8AiLtPtQ==
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwNyzVSBTAARdHgzsfd3bWCZbAECuhgcHd3d1sAruvjFJlzkzep7B/uG4oK
IYw4MVkhjOaEEM0xxnKccXzODWFCx+tJJnCKiXyxTeskPcNkzjKFr7Y5narn
mcYFpvPNtqgjeokZXGYm320rOkuvMptrzOGHbV3n6g3mcZP5/LRt6QK9zULu
sIhftl1drPdYwn2W8tt2oMv0Ict5xAr+2I51pT5hFU9ZzV/bma7R56zlBev4
Z7vU9fqKDbxmIysiITTxxr2Zt2zhgD89eSG06jtvbbxnOwdtvbYO/eCtk4/s
4hO7+Q/9tDH8
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwVzkVOBEEAhtHiBCQE2HMHfHB3d9eEFYQb4e462OAuZ+LVovO+7r+7UzlT
C13zaSGERVdeRghLmSHkcpn5XGEBL7NCWNWFeo1FXGcxk7YNndCbLOEWS3ll
29Zleofl3GUFr217ulLvs4oHrOaN7VDX6CPW8ph1vLWd6Hp9ygaesZF3tnPd
pC/YHM/OFqZsSd0az8W2eAa28952ozvi/9kZ/8UuPthSuju+x574jL18tD3q
Pv3Efj5zIN7bXvSgfuUQ3zgc37G96xH9wVF+coxt6SGM88v9BL85yTnfJLJD
mNI/nk3zlzP84yz/AUCcRbQ=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0MVNBUAYRtGhAhICBdASJbDA3d3dnYZwd3d3dwvnLSbnTr7dH5+YnZAV
FULI9ZJjQpiPDSGJC0zhIlM5EhfCkk7Ty0znCjM4alvVmXqNWVxnNsdsGzpH
bzKXW8zjuG1b5+sdFnCXhZyw7ekivc9iHrCEk7ZDXaqPWMZjlnPKdqIr9Ckr
ecYqTtvOdbW+YA0vWcsZ25Wu09es5w0bOGu71Y36jk28ZzPnbA+6RT+ylU9s
i9zS9qzb9Qs7+MrOyH1tb7pLv7ObH+yJ3Nz2qXv1F/v4zX5WRIcwwB//Qf5y
iH8c5j+wBVoa
             "], VertexColors -> None]}, {
            GrayLevel[0.2], 
            Line3DBox[CompressedData["
1:eJwN0DkwHAAUx+GncF8NQWmcNQm1s2ZDjaVhjCXbaLLBjC6uRuPsJVKacVUa
V58Drat3NvmKN99v5t+96mQqMZEVEVPuOj/ivCjihn/5znsWFES8sIq5xRGN
/MBW1nG0PKJbf9T97OAIExyzpfWQnuMkV/iN47Ztvah/cYPH/MGU7VIf6Cue
8ZF/mLa96TudXxjxzErmlERM2xp0uW5hLbvYzIytT7frYfbyCwc5b5vVKb3M
DLe4wAXbrl7XR9zhBfe5avunT/UDf/OVt9y25fnbk65gdmlEPcu4Y/uka3Qn
m/iZbdyzJXWPnuIAZzjBE9uS/qo3+Z0/ucZD/gfVuUAy
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwN0CdMHGAYx+EXQxkF1LEcCRTQTA2FakbRTEUYB2cwHCPBcYWaGsrwjMom
ZShMGQLHCkhGfVmCR3x5fsk/r/kq+sc6R7MiIund5EYcf4y45SXf+MD8vIiz
RMSzLtc5BRG1LGEzP/ELG9jDzxxiF4fdpXS/nmeS3znDEduG/qZ/cZUH3OK4
7VTv6mse8R8vmLK96nudlx/xxDJ+KIyYstXoYt3EKraznmnbV92qB9nJSfZx
wTanx/Uy01xnhhnbjv6p97nJE/7hD9uV/qsfec4X3nHDluvP/utSZhdFVDPB
TVujrtRtrGM3W/jbNqA79AR7OcsxHtqW9LRe4yK3ucI9vgPv6EEN
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0DkwHVAYhuE/FddFqlgrBSG1tSaoCWqCEtfSaKwzOpdoNNYeUZqRUKVJ
QqGzDTpbb53xKM4878w35xSnpKu/pe9DRKScy0TE/+yIK57ylbfMzoo4+hTx
pIt1IifiCwtYxwvbZ92sq9nBr+zlN47wO6c5yAVOsM+9dT2nt7nCfW4yZTvU
v/Q5//GeJ+/v2V70jU4mIx5ZxMzciFFbhc7XtSxjE6s4bmvXDbqHrRxmF2ds
Uzqlf3Cca0wzbfupl/UeN3jAXS7azvRffcdjPvOa67Ysf/agC5nxMaKcedyw
1ehS3chKtrGeO7Zu3aKH2MlJDvCPbV6P6VXOcotL/M03EIJB9A==
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0DkwHVAYhuFf51qiMmJpNLHVBLW1lVhqa8e4lkZDMKOzJI3GktsLSjO2
SmMrdEjGUEmuHmE8ijPPO/PNOcUp7R5qG8yIiGHnNhFxmhNxx2u+8h9zsyIu
8iOedYnOyo2oYiHreWMr1636M7vYxAGmbe16XPdyliP8wW9McZHbXOMhfzHp
3rne0394wgdevb9le9F/dU52xBOLmfgQMWGr1B91HcvYwhpO2Tp1o+7nV46x
h3O2GZ3U3znFn1zggm1Lr+oDbvCMu1y2/dbHOs1L/uc9U7Zsf/aoi5iZF1HB
Am7YavUn3cxqdrCBO7Y+/UWPspvTHOaRbUlP6nXOc5Mr3OcbLglC5Q==
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0CdMHlAYhtGvEn6GIilLoBhFMzUUkIRpCwUUhG0wrCY4psEw/c+QJLRF
YbpEHSskYFiazUHcnCd5c6+4BV/6Gns/RES/c5ES8Sct4pInfOUNM1Ij/mdF
POl8nUiPKGUOq3luK9YNuoLt/Mwe3tpa9Kj+ym8c4hLvbZN6U89zl2s84Bb/
8TvP+Jt3PH5/y70Xfa3TExGPzGNqRsSY7ZPO1lUsYj3LOWFr07W6m80cYSdn
bNN6UC9yghuc45xtR6/qn0zyL/e5bDvVv/Qtj/jMK27a0vzZg85lSmZECT8y
aavUhbqOZWxlDfdsXbpJD7ODUxzgoW1Bj+t1znKbK/zBN0PQQ94=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwN0ClMFnAcx+GfG4X3IsmGHBsNEbIgZM7mxmVkCFhgDDkKhXOz+XIUCgJv
54psCiYLisEGyAgQhNesXE/47/ls3+0X/pW9w6+HnkTEiHdZGPEjFXHFM0Yi
4oZF/PU04k5X6FQ6opalbOSFrVq363q+YQvfMW/r0pO6nwsc4wr/2WZ1Ti9y
j+v8yoLiiG39U3/hOb/zL0/5wGtmkhG3LGcyEzHlZo1+phv4nG2s44ytRzfr
QXZygm/5wTav3+tlznCTWWZtu/qTPuQWj/mZq7bf+kjnecJ7/mHOlvZn/3UZ
E0URL1jCLdsrXaVb+ZLdbOK+bUB36HH2cY6j/GZb0tN6gx+5wzUe8BFkgELf

             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwN0CdMHWAYhtEPUcG6YIqgjCAZRTOKZioE05FAAUHThFF0WQmOaTCs6y9D
krAUhiXqWMHQBAqaQnvEn/Mkr/iSv6TnW+tQWkR89x7SI86zIn7zhmkZEX+Y
y18fI951sc7OjqhkAet4byvXLbqG3WzkIJ9tHXpcf+UMR7nMV9ukTuoF7nKd
x/yQF7GlL/UB73jGFyZs1zoyI56YwzcWMSsR8Zmf+IVlbGY1J9zr0g16gO38
wT7O2qb1iF7iBDc5z3nbjl7TR0zxgvtcsd3qU/3MK/7jI5O2hD/7qwuZmRNR
wXymbLW6VDexip2s556tX7fpMfZyisM8sS3qn3qDc9zmKg/5Hz03QeQ=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwN0CdMHmAUhtFLBQkU+EFQBNsyii5LMw2GqRDMBJImpS2ameCYBsP0LEnC
UhiWwLGCghSobkuP+HKe5DU3X3H3cMtQUkR89Z5SIi7SIp55xw+pEa/M4nV2
xLsu0hnpERXMZy0fbWW6WVexiw0c5JutXY/qPk7zO5f4xzahN/U897jGEyZ/
itjWV/qQDzznbyZstzrpY8QLM/mPhcyxpWdEfNZ5rGEpm1hoq9Sdup4DbONP
9nLGPVN6RC9ynBuc45xtV6/qY27xkgdctt3rM/3GG4a/+sVNW0L/1QVMS0SU
M5dbtmpdohv5hR2s476tX7fqH+zhJL/x1Lagx/Q6Z7nDFR7xP3rbQSE=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwN0DksH2Acx+EfBnH8HU2IwTm7Otc1owwmVxeLM8TSOmZaZudiodj/jlGi
ZbKgBpsrNmdn2md483yS7zu8eSv6xjpGUyJi3HnIiDjPjnjkDdMyI174gZcF
LiQiKnQuP7KUTby3Vet2Xc8vbOUIX23deloPcp4TXOWb7bve1kvc508eM70w
Ykdf6F+84xn/Ms92rVOzIp6Zz38sZ5EtJyeiVpewkVVsY7mtTvfqFg6zi1Mc
4By/cYWz3OIiF71zT2/oIyb5h4dcs93qU/3KK6b4sydu2/L0uy5jIjeihsVM
2hp0pf7MT+xhMw9sQ7pTT7KfP/iVJ7ZlPaM3ucBdrvM3/wMy5T/z
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0DksHmAcx/E/OrjqDEmH4rVYqpidsyqJTR2DiSqNyTk7Z+diafHurlHi
6GRxDbYWMVLMrY/hyeeb/Kb/k+j93j6UEhHD3n1GxHl2xAOv+SYz4pGFvCqK
SHkbUa7zWMNSNvHO9lG36Xr2sIWDfLJ16kn9lfMc4yr/2WZ0Ui9xj+v8xfTi
iG19qQ95yzM+M9/2R6dlRfxlASMnIsF3tlxdrUvYyEq2MmGr0936E7/xCydY
YevXc3qUK5zmJhe5y5885hYveMA1N9zoU/3E30x9/UMmbfn6vy5jTm5EFd9z
y9agP+jPrGUXm7lvG9Adepx9nOUIT2zLekpvcIE7/MEjvgBAPD75
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwN0CdMHVAYhuGfUcG8bIFg1WAuSzM1M0goNMG1rNTRQnVZmqmZniVJWAoD
FIEDSmpvudXwiJPnTT5zzqkdmx6cyoiIb04qJ+IuP+Ifn/khN+KVZXwoj8gs
iPioi9nCGnbxr61RD+h2fmYvp5i2fdI/9TiX+YObfLMt6H29xhPu8Io5FRGH
+l6f84W3/M8S25POznNXljKjMKKOlbYi3ayr2ckG9rPO1qZHdQ8nOcw51tu+
6iX9nRuc5x6TtlV9rLd5yQP+5hn/8IZpPjLLn6W4730lOhIRtUywiVU8sHXo
pO5jK0fYzVPbhB7Ss/zCRc7w2rauf+ldrvCIW7zgO+5fPfs=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwN0CdMHWAYhtGPmbBXwSDgcmswlKGBgmZbZpDQXlJZRnVZGmjRTM+SJCyF
YQkcK7XAreaIP+dJXvPnS4xPDaQyIuKH95YXcVMY8c4n5uZrVvK+MiKrKOKz
LmcLE+zkP1uj7tftHGMPp5i2Detf+huXOcN1RlXEgt7VazziFi+Yb9vXd/qU
L7zmf1bYHnVOgT/zEzOLI5KstpXpZl3LDn5hH5O2Nj2qu5niEOdYb5vUS3qa
fznPHTbYVvWh3uQ593jLZtuJftZXTPOB2e72ygpmlETUsZRNrOGeu3zVDbqX
rRxhF49t3/WgnuUEF/mTl7Y/+rfe5goPuMEzfgC+qjz3
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwN0DkwHGAYx+FXEOMe7G6lyCJNmk2sSemI2pGt3S2x0oZQu1IjUUtCL6E0
46o0rkLnmrTYtJ7im+c3379702P53GRRRHz2nsojzqsiCrxlWYU/pniVjCip
jnitG9jGJnbzn+2dzulOjrKPUyzYhvSc/sRvnOE6i1IRi3pLr3GXv3jMStsf
fakPeM8z/mfCdqNfVkY8MsnimogWNtrqdVan+YFv+ZEttg49onuZ5yBn+cY2
oZf1NH9wgZvM2Fb1jv7JI27zglnbvr7TpyzwmqXu9t72oBP6RW1EM+vYylfs
Yob9bOcwe7jnZpN6QH/lOJf4hSe273pe/+YK/3KDh3wG+2U86g==
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwN0DkwHAAUx+HnvpnBrkrhbDTImkwqZ+2shaixtpagDok6gtrZu3pXpXEV
OsFoJavMV7z5fjP/7jVMpUdncyIi47IlEbflEe98YnFpxD/W8SERUVAR0apr
2cUmDvDV1qnHdC+nOMwMs7YJvaRnucpv3GRuMmJF7+vfPOEOL1luO9T3+owv
vOE7E7Y/uqgs4i+TzK+MaGG9rUandCP72cFRtth69Bc9xDl+5iLbbDP6p/7K
DS5zj+22NX2st3nBA94xZTvVz/qaWT6y0N8+2t50QudVRTSzmh/4ydag+3Q7
R9jNSQ4yzXEucJo/OM8r/1zX3/Uuf/GIWzznf0MfPNM=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwN0DkwHAAUx+FnRMSxFOxSmUFCo3GsMdI4a2edCLWzdtYEtbN29q7e1bsK
HUlGm2SpfMWb7zfz717l8Hj/WFZETLrXvIi7wog3/mJefsR/lvMxGfExEVGr
k2zmZ3bzxdaoB3UHR9jHKWZsQ3pBj3OVs9xmdiripz7UGzzjHq+ZsB3rB33B
P7zlK1O2Z/2pIOIfy5hTFFHDClupTutqdrGBA6yxteth3ctJfuc862xjekXP
cItLPGC9bV2f6l1e8Yj3TNvO9W99wwyfmOtvLba/OqU/FEd8YQmb2Gqr0p26
nv1s4w9+tfXoCf2NcxzlMqe5yUXuc40n3OEl3wGTkjyw
             "], VertexColors -> None]}, {}, {}}}, 
         VertexColors -> CompressedData["
1:eJx8nHk0lesfxRVFqEQRUpTSKA2kgV2pSDRrVKFUNAhNGqVSCKVIolSiQSEl
[encoded data, 96240 characters]
EeJj00j42ADiaSdIeNpVCvzNggKv+19ScJ5P
          "], VertexNormals -> CompressedData["
1:eJxcmnc01+///40opSEplZGMNBQSklyihUoJSaWEVAjJysyOQhGlUjKzZRMP
[encoded data, 152820 characters]
VXOJX/c/J+mc6Q==
          "]], {
        DisplayFunction -> Identity, AspectRatio -> 1, Axes -> True, 
         AxesLabel -> {
           FormBox["\"x\"", TraditionalForm], 
           FormBox["\"y\"", TraditionalForm], 
           FormBox["\"z\"", TraditionalForm]}, BoxRatios -> {1, 1, 0.4}, 
         DisplayFunction :> Identity, FaceGridsStyle -> Automatic, ImageSize -> 
         Medium, Lighting -> "Neutral", 
         Method -> {"DefaultBoundaryStyle" -> Directive[
             GrayLevel[0.3]], "RotationControl" -> "Globe"}, 
         PlotRange -> {{-2, 2}, {-2, 2}, {0., 0.9983340322406874}}, 
         PlotRangePadding -> {
           Scaled[0.02], 
           Scaled[0.02], 
           Scaled[0.02]}, Ticks -> {Automatic, Automatic, Automatic}}],
       "\"f(x,y)\""},
      "Labeled",
      DisplayFunction->(GridBox[{{
          TagBox[
           ItemBox[
            PaneBox[
             TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
              BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
           "SkipImageSizeLevel"]}, {
          ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
        GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
        AutoDelete -> False, 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
        BaselinePosition -> {1, 1}]& ),
      InterpretationFunction->(RowBox[{"Labeled", "[", 
         RowBox[{#, ",", #2}], "]"}]& )], 
     TemplateBox[{Graphics3DBox[
        GraphicsComplex3DBox[CompressedData["
1:eJxcnXVYlF33tu32sbu7u+XVsbsLu1uxuxC7ELs7UREJEURwAEFSxULsQsXE
[encoded data, 74640 characters]
II7D8xZe3NwXzmdmfMz52/yHOV9zveTyu22qjTvj/ypZ/T8WTY/s
         "], {{{
            RGBColor[0.880722, 0.611041, 0.142051], 
            EdgeForm[None], 
            Specularity[
             GrayLevel[1], 3], 
            StyleBox[
             GraphicsGroup3DBox[{
               Polygon3DBox[CompressedData["
1:eJxMnXW8VcXXxs/t4J7Y59wLFywQCcVCUQwsLAQUEBUwkLBFVASxUFBBCWlF
[encoded data, 53220 characters]
P+HluHbG1FWxzmHMwoOxdJO5Jg6P55oY3f8BFrM8fg==
                "]], 
               Polygon3DBox[CompressedData["
1:eJxEnWOYZEnXtYuZWd2VWV1ZlRrbtqfHtm3btu3psW3btm3jGdsz3333yvf6
[encoded data, 34920 characters]
JUsTRhtGo4aNhR96fkE0lXii3wEFCcW/
                "]], 
               Polygon3DBox[CompressedData["
1:eJwV13uYj2UaB/B3GGYM45yMYwabwjgMk2F2xRJrSlTbQRGKSJFyuCglpzVL
6SpKSsRGmJDNaqk2sVpyGIdhGKZGigijyTizn+eP97p6P773c9/P83vn/f1q
MHDEfcNLRVG011XGlVEjilIqR1G3xCh6wj98UC2KaiVF0TXWvmIULRRaUD2K
kthVls7ms8E1o2iTa3yFKCquGkUTXX3dX3P1l8uyXkbpKCq0XqT2SfYa685O
s5rsCmtnvXnWe0Ldzewyu4O9w97VN918zdldavub7z21teWusw5yi+UWyZVi
g9ksuZ56FMvdsOZANoN1ZsfZdTaA/Z11ZMdYjNpB7HWWyYpYI5ZZJYrm6LGr
rFn1qKZ2ghl6yTW13+ru73SlxUbRPnYv6+S+iyuD7We9WFf3PVwd2QHWm2W6
b+1apt/ycFYs1X01ffPMUknfgvJRlM3qBpebINdSrp7710Jf/37U/TxXirqb
WYr/Hi131Zw13affHEVrzD/Dekv92/OsrzPto8cLciVyO+y3D3uEPc+K2TbW
nz3KRrFLLIfNUd9L35PWWulqoe9UVocdcD/F1ZydZ23V9lW7TO0atRfDPGwA
W8u+YmksU80u1sT53BHOznUPywnnzP7o/iOzrFS7m6WwDJ/H5bAXNo2lOp88
682Xy2Y7WLJcK7lLcu3ZQPa5vhvl5smtYNtZfbkUuYXsE7aTNWZt2L9ZDrsQ
Zmb9WEVnWseZ9nOmc805xPpnXYlybUNfPWbpcUJtlueztdwkuf4yZZ3NTLnP
5fLMnGS9K7wf+xtLY/lqX1Q7mS1gWewqi1P7OlvPClh9tUVqW7KH2Tx9F8t9
oXY3uxj2a+YBcqXVTmefse1qE9lVtY+z6SydFaiNl5vFNrBCliwXy7LYWraL
VWZl2Ay2juWyGuxlfaewhWwmu2G9c3q0Yo+w+eZbws7eFEV7KkXRKe+OVjHO
mT3uTJ/297bUWVWOi6IEmU3WKzZ/PHvK+fW21lZ2iSWwoex+9iqbqseHeszS
t5RZGoZnzb8vYm+yRu6LXalyj7LFZsnWd4raaWwxmyMXr/YmFrEkts18Q+XK
2e8b7At2TK6xXFW5G/ZRk30rN1judz3ayD3Gluixiv0W/tZZH7aQLWNf2u9m
+y2lvmN8FD0XzoR9x8qxB9hU9jX7LyvNOrMXWIz1LrI0dpKtY9vDu8T9bmea
Z/xEPY6Zr0Tfhs6qt+dwhpkL2XmWzHqy6ayA/c4asEw2lSVa76oe7a1Zoscm
Pbaxpe536bFHjzg9vmMfsxyWyxLYFuvttd4V+93ssxpqvYNy++Wuyw13Vh3D
88wu69GOF+nxpR6x7BK7g51m61kCu8LSWTH7mv3mXIpZK5bPPmY75Va436tH
gVmq6XFe7ne51rxAboXcDrnl7vfI5YePWm6m3Nty+5zBEs9fB7lbfeaj2Tds
EGvGmrAxbBMbwlqwLLVz2N7wfcTasT/IjWIb2UB2G3tTbi7bz7JZJ/YfZ7XH
WV1yVhuc1ZPOapbcO3K5csvk/iR3lv3GWpo7zz4+YrvsI9v9PvsotI8a9nGb
vovkzqq9oraf3O1sMSti19kAdtF651mq+kLrrWTX2QXWlh1nn7ErrIS1YcfY
p2wOe5cdsN4q63VhP5mltH00tY9Yz/hIs/zMYlkzFsdGsR/ZD9aKD+8Iz0Ff
Vs98Daw32Hqp3qsjZL53HZaLlZso11sun+VVCg+3tVhXVl9tstqn1Kap3eb8
joZ6ubjw7pTrI/cDO8LKsMnsAXaL2oZqh6hNV7tDbWN2N3ub7WHXw7uE9WCz
2XZ2kTVgjdhQlsFyWDL7C3uLbWWj9Sx0FehbVt9p+j6k7yF2gN3wuY1kndlh
dpDFyI1l3VkZ51zTendbr9Df5Uo9yrNarCc7zj5jj7GhbAlL9HnE+Tx+tV6C
s29tvSRnP816p1g51orVYJNZSfgdwfqxbLY2vDdYKXY7i2HD2UkWz1qyamwi
O87KsOYsgY0NPTzPF1hjs/Qx3xvmOxG+91iKXKLc+PA9Y+YkM98jd0zu0/Ae
kst3BqXlJjiDnnJH2CFWio1nmewXFme9Fqyy9Saw6uq/S/Au9M7v4Grmszhn
lotyt+rRX4/ZMuv13aRvjDUzPM/POqut1lvifqfPY5fHK9Z6H8rNl8tXu8GZ
9grvZ7lVcgfkTsrVl8uT2yFXnvex3gy5vXKrw9+p3Gm5ZLm6cvXkHrDeJbNs
NEuu3Bq5Q+E3tFwTuabmzpGry2db7y3r7ZZb6X6/3HG5OnK51tsul8Afkpse
3pNqV9tvoXMZ5F3SSY/xcs/Lrda3qX00kqsot07uRDhTub/KjZUbKbdKrolc
A7mlbAE7wjayB1n18NuH9WZF9rFe7T7zfWqOg+YrMl9j822X2yoXx3ua75Xw
vmLbWDzrzSaxNJ9RM7N0NUtfn+VctcvlFsoV6LFZ30fk1rFvWKQ2Xe3T4fcB
28JiWVc2hm1h37IyrDsbx1LZnWy89cb7uzxs5jTWib3IJrDv2Vb2P1ZWbaba
l9SesbcK5msTfieab2Z4D8ntlKsg11fudbk6zvSGXEb4/nAuH1nvZ7mzcs3D
d6bc+3K/sCKWEr5/2AJWi9Vl96stUfuV2pasIxvHxprvIKvCarNe7LTcOjaK
PcdWssbOqp71yptljVl+NPMwn283ueFyw+Wy5erL1ZQbxp5lK1gddhPrzu5i
r7JZ+p5Re9oZlLdeqvXqOIMsZ1BJj32sfPie0eOZMB/bzxJZjPmeY79a75z1
Wthvrv0u0qOyXK5chfB9pPZB6/9D7gO5w+wrs9wv9wF7nx1in7N7WF21t7BB
rKX5tugxV24ey2Nr5LrJvcfeYwfZWtaD5ejzSZjDc3os/G+pfWTKdZObJPem
9c5ZryvryiaymexU+K2n7wEzV2Sx9vZweC7YWvZz+D6yj3vlMtR2VjtBbrLa
o2xFeIf5/6Mz3kuDXD3D+9+1zyxXzTLEey3dLInW+5f1jofvAOvdpzZPLlfu
mtwwuQy5/eyf4XcPK7GPpuH9p/ag2sr6JphvjNqRZhlhlk9YsjOo7Qw6sy7s
FZZlvhNyQ9gzbDlLkqsq15H9mb3Mpsn9JDeQDWMfs2pyiXI19M3Xt2r43a7v
S+H3MzvEqoTvIzaOXTBzO9bf3tZ4hjaY+f+HJlLh
                "]]}], Lighting -> "Neutral"]}, {}, {}, {}, {}}, {{
            GrayLevel[0], 
            Line3DBox[CompressedData["
1:eJwl1ElsjVEYgOFP1TyXmqcaaqqaN2zYsGGhNkRipkHN8wYRNligiqoq2qpq
UfNYQ2sqGxJhw4YNGzZETOH5Y/He97zJzb33fOf8N2PBqpyVjSKig5fSVhHJ
ehc/bhExxnoxDuNvWkQD/8JwbxrVMWIu70c9FupvPCglYhYK9B6uxRc80RmN
I2ZgF37o6/wJPVIjhnWKmMbbcBGz9QdObxIxBTv0Fq7Cu8S6XdOISViH17qc
36BFs4jU9IgJvAIlGKdfcuPm1sjVuVyI54n1Hx5h3/NR3TKiSeuIfOuT5jEd
B60LcAhL25kLH0EhlumjXIRjWK6L+ThKkKdPJJ+FU1ihS7kM5VipT3MFzmCV
ruSzqMJqXc3ncB5r9AWuwUWs1Zf4Mq5gnb7K13Ad6/UNvolb2KBv8x3UYqO+
y/dwH5v0A65DffKd5tHUPB4mv98scnDAeh6y0WB+v83vGY7gsF7CY5GCxfqF
+R9HHsbo8dwcr51Zii7jtZiIV86zLb911mdRqTfzZHTCdv3e/ajBVszSU7k7
PrpTQ/Q13okcfHff+vJnd/EOHundPBOZyNdf3d867MN8PYez8NOdH6Gf8iEs
wtPk7MxgtPVerjGfUdYjk/finFllJ88KslClh/FQDEGlHsyDkIkKPZAHoD/K
dT/OQF+U6j7cG71wUvfkHuiOEt2Nu6ILinVnNtYwiijSthBpybOOQt2eHXO0
TZ5x3YYpbCcKLGwpbDMcX+RrRxWOJIw/9mujDiMN44sLLf//f/wDnIqITA==

             "], VertexColors -> None]}, {
            GrayLevel[0.2], 
            Line3DBox[CompressedData["
1:eJwV0EVWA0EABNDGnUBCcAvu3IUjcAB4XAR31hyGBHd35w7A78W8X1O1mO7J
TE5PTOWFEGY8f8kQsukQfpljSIWwyzxuJ0LI5573Au6zkDuNIcw2hVAkH+iK
ecgSZm1ztlL5SFfGY5YzZ5u3Vcgnukqesip+07Zgq5bPdAmesyZ+37Zoq5Uv
dEleMhXPZFuy1clXujSvWR/PZlu2Ncg3ukbesime17Zia5bvdC28Z2s8t23V
1iY/6Nr5yI54F9uarVN+0mX4zK54J9u6rVt+0fXwlb3xnrYNW5/8puvnOwfi
fW2btkH5QzfETw7Hf2Dbso3IX7pRfnOMPxznP6biQuc=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwNy0VSXlEURtGLE7RBhSJNZvDjmiDB3V0zACjmg0OA+dDAvYu7w2q8Wt89
u172v+muqagQwowvJyOE858hRHjBXF4yj5FfIVzZ+fY1C3jDQm6mh1DEW+9i
3rGEW1khzPqv1L53K+MDy7mtzWm/7Ue3P3xiBXe0ea3Sfnar4guruastaH/t
V7cavrGWe9qiVme/u9Xzgw3c15a0RvvTrYlfbOaBtqy12CEzhFZGsY2H2orW
bke7dTCGnTzSVrUuO9atm3Hs4bH2X+u14936mMB+nmhr2oCd6DbIHxziqbau
DdtJbiNM5ijPtA1tzE5xG2cqJ5jGSX4DVdtBpA==
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0dVVA1EYRtFLBUgguAR3K4UScE0I7u4uVeBaEq4tsHmYtb/5z5qnibUn
2uIpIYSkpyMSQmo0hHamsZPp7GJLbggZdrcdYQ8z2ctWLcvus6PsZzYHmJIW
wiBzvA8xl3E+5YRw5ruEnec2zHwm+aydayN2gdsoCznGF+1CG7eL3CZYzEm+
apfalF3iNs0YZ/imXWmzdqnbHMs4z3ftWluwy90WWcElfmg32rJd6bbCKq7y
U7vV1uxqt3XWcINf2p22ade6bbGO2/zW7rUdu95tlw3c44/2oO3bjW4HbOIh
f7VH7chudjv+/y88+f8HPOUfJP87hA==
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwVzEVSQ0EABNDhBlQFUrDkBCxwd3c9AAeABVfB3d0hJMH1PmiAHS+LqdfT
/efnjYz1j2aEEMadyUgIBdEQJljIKRZxOt3nhlAsz8glnGUp59Lf2srkebmc
C6zgYvq9rVJekqu4zGquMD8zhFXWuK+xlut8ywkh5t2GXKfbZD23+G67tG3L
DbodNnKXH7a4bU9u0u2zmQf8tCVsh3KL7oitPOaXLWk7kdt0p2znGb9tV7Zz
uUN3wU7GmLJd2y7lLl2c3UwwYstyUvake7YcTf9L7vHNNX/cb+w3cq/uln28
46/t1nYv9+seOMBH/tnubE/yoO6ZQ3zhMF/5D4s9SeU=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwVzVVOBFEUBNAHKyAhwX0RwDr4wd3dYXk4g7u7u2uCHz5uTnVV90xmVXte
W1QIod9FYkPIjwthnAWcYCEnmZ0YQpE8JRdzmiWcYY6tVJ6VyzjHcs4z11Yh
L8iVXGQVl3hti08IIcEte05kkluRq72z+v8fMSGsscbzOmu5wQ/vDfh+U67T
bbGe2/y0Ddp25AbdLhu5xy/bkG1fbtIdsJmH/LYN247kFt0xW3nCH9uI7VRu
052xnef8tY3aLuQO3SWTdSnuSk5lmnv3zrXndDnD3ciZzHK3crCPuTu50+/c
s4sPjNKPu0e5W/fEHj4zWh9xL3Kv7pV9fGM/3/kHdbhV3g==
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0EVSQ0EUBdDGEoIGEiR4cHcGyCpYAguAKe7uviacjbAAHE4Gt87t97p/
qpKemZuezQohLMlHIoT5yhDeucBPLvKL4yl39G99mT9c4S8n7Fb1P32NIRnC
OrM4abehZ+ubzOEWc/lm11IdQqvkObexXSJ6Bzslqk+5t+1Nvr7DGHdZwL14
CIUZnYu4z2LmeHMnJfqBWSkPGWeu+b2U6Udm5ezyW92S0Hv4YN8rSede5z6p
0I/dr2Se3aNU6Sdm1TxlihHzJ6nR+70bkFp9kENSpw9zRN7dq3ce1cekQT/z
nUZG7Z6lST83S/OCzcw3f8n8f/qlWSuv2MaY+au069dmHbxhJ2/ZxX8/CzWU

             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwVzzVSREEYReEmxYqAoiAkxV1ngMHdNWUBsA82gLsM7kRQhawA2wbkQML3
glPn/tL9XufPzo/OpYQQFlCYHcJiTggFvMRFvMzFHM8LYUUukVe5lNe4jJvM
1uVyeYMreJMrudlsS66St7mad7iGv8xqckOojVA/ch2eUI977OMAe2jALhqj
PfvfzsfkeLSv3nVvA+9xI7eY78sx+YDjnOQmvsjyb3yobuEjTnCqM69olY/1
2qL3ub8Z7dGdnMCPnQ51q9yGTvnEfhenmb2hWz7V6+Ez7uV2ux34Ne9TP0dn
8YIuPOAIxzjEFbqRRA/6nenlPvy5Y0DdLw9gUD73nSFON3vHcPRWvRG+5FHO
0P/AmHylN87XPMGZ+p+YlG/0pviWp/mOZ/gfOQRJ5w==
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0NFWTGEYxvGPG6hUs6ozl1I5Vk0oU8JQicwkMhnMdAmOSKg41VG1Chkq
zKgIZWbKTajzrOU3B//1f773efe3194n48lo4lgI4RF66kJYioQQ42Xu5Td8
gZsbQ3gr98nv+CKv8CVu0b2XL8s5jvMHvsKtuo/yVXmV+znfEMKaXODjTSGc
5teYRw4LSGEabXiMKTzDOGbRjidYd889PvKeDv7kPOAdn3mQv/A1PqXPy0Ny
ga9z1P5XOc3/9J284Xyfz2BTvmFvi4e5yk4RN+VvZgk+a++7/IDPoVr/Fw/l
LmzrkvZ+8AjX6Eq4Jf80G+VffJu77Z/QHSAjn8ckXuIVsphBDE/xHC8wgUX0
YA61nj/EHXfuuHuMd/ku15mXkZJ/m41zsfIPud58D2m5VPkPXK58G0fM9yvf
Je+ZZXifs/yHJ/g/t/BeLQ==
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0M1aTHEcwPFfd2DhUWHTBXQZKMvWKCnLuoZmMFOJpPcXvYhYiI2iRZvy
PK6hZkKhkl5HyMvU5yy+z+d3fv8zc+ZMRX1zTVNJRLQqdTpi+UxEC3NMM89b
vFAesWK+bf7AO/zIDC86+2TOmlfZyjW28ZKzz+Z28xfe5ZWyiK/Jc1h0fpUL
WtQ7pfRe1/RCrzWjtGZVq2mtJ7+Nx76jjhuuO3z/Ju/xG++zyvmWudP8nQ94
3f3byfuw0nm1dpL3cl2vXXOX+/b4kJed75u7zQfsYYG9PDoV0ccfrvt5yAGW
+sySBs0/7Yb4i8O84Rllzg6UMTfopd5oXm+V1Zwa9Uq/k/+WN1XucwWNJM+3
f8Q/HOVZ+2WNmf/ajfMfJ3jOPqfH5v92kyzyCc/b5/XUfGw3xSiNeMYSPucJ
vINmvg==
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwVzlVWHUEUBdAKBElwfQ93C6xMBGcI/OAwAGaAjwN3JxDc/RuZAwNgv4+z
9ql7u7q7onuka/hHCGFU5nJDiIuEMMt4zvMnF9hcEEKCvqgncolJXGaLXbK+
ov/iKn9zja12Kfq6nsoN9kRDSNPHGApD6GW68zj7JEOfYL9k6pvutHlPlr6l
Z3ObOdxhu12uvqvncY8D7ubrk/xr3yER5ynnQYnq+54r4AE77Qv1f3oRD1nM
I3bZlej/9VIes4wnMbNCOGW58xkreM4Sd97kQh/yvUrzaQ5LlT7DESn1zJdc
eq7a/Io1vI692/xdbvRas1vW8S72PfMPudfrzR7YwMfYP5h/ypP+x+yZjXxh
E1/5DcCHQEw=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0MVSG1AUgOEb3oAZGKA7bIkVirsUL+47HgBneA7k1WiB4gnu7vJlceb7
c84kM7np45O9E5EQwoL5mxRCTkoIq8zlP+ZxjX1pIeTrdV3ADf7kf/a7FepN
XcQt/uI2B9yK9Y6eSg2hRC9y2pTqJUZ+hDDDMp+XOWvK9a7vVHCPg36nUu/r
KkZZzRiH3Gr0ga7lIet4xGG3en2sG3jCRp5yxK1Jn+nfPGczLzjq1qIvdSuv
2MZrjrm16xvdwVt28o4tiSHc84/PD5zzX7r0CudNhu8+mEe3bvsn9vCZmfb7
5kX32r3G351vzLKPmvf4e9t9xN+Wn8y2j5mv+DvZhWRvwgiHmcBvZINLug==

             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwVztVaQkEUgNHxs1tUBFsMwMR4E+9sxU7s7ngEH1F9Dddc7G/9M5tzOJli
af6kLIRwYSqSISykQijnIiu5xCoudxpdrVdYw1XWxrPdmq7T66znBhvib+yK
ulFvsonX6RC29DcL8Vmz7dxst8MW7jIR32e3p1v1Ptt4wPb4H3aHOqmP2MFj
pli0O9FpXWInT9kVv8PuTHfrc/bwgr3csrvUffqK/fF7OcBtuxud0bcc5B2H
4nfb3eth/cARPjIb350IIccn5zyfOcqsZ37MmH5xN85XTjDn/tdM6jd3U3xn
gXn3f2Zaf7ib4Sdn+cU5/gO5ai3n
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwNyzVORlEURtHLECgIoaSEGnd3d3eC/8ggcHd3d5kUzIJV3Kz9zpcXPzDd
EIkKIcx6yTEhzMeGkMQFpnCRqRyJC2FJp+llpnOFGRy1repMvcYsrjObY7YN
naM3mcst5nHctq3z9Q4LuMtCTtj2dJHeZzEPWMJJ26Eu1Ucs4zHLOWU70RX6
lJU8YxUjtnNdrS9Yw0vWctp2pev0Net5wwbO2G51o75jE+/ZzFnbg27Rj2zl
E9s4Z3vW7fqFHXxlJ6+iQ+jim+9uvrOHCf759Xr1h1sfP9nPRPc/b0B/uQ3y
m0P84TD/ASkZPu0=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwNyzVSA0AAhtHlCBQMQ0nNbTgCBU4ghAhEcHe/CO7uENy95BS8Yud9u/9s
aUVjeaQghBB1qopCWCgOoZKLrOYSaxgrCWFZ1+oV1nGV9WyxrekGvc4IN9jI
uG1TN+ktRrnNZiZsOzqmd9nCPcaZtO3rhD5gkodMMWU70q36mG08YZqttlOd
0WfM8pw5ttkudLu+ZAev2Mm0La+79DW7ecMeZmy3ulffsY/37GfW9qAH9CMH
+cQh5mzPeli/cISvHGW77U2P6XeO84MTzBeGMMlP9yl+cZpl/vw5M/rb2yx/
OMdfzvMfMH5SAw==
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwVzkVOHlAYhtGLu/wkBBiyJZbAAiDsAG+xOe7uXijW4qyjxd1dDoOb83x5
Jze/sLigKCqEUOI1ZYfwLyeERv5nM/fZwtK8EA50qz5kG4/YzjLbse7QJ+zk
KbtYbjvT3fqcPbxgLytsl7pPX7Gf1xxgpe1GD+pbDvGOw6yy3esR/cBRPnKM
1bYnPa6fOcEXTvKH7VVP6TdO850z/Gn70LP6k3MMuSHMs8YWpX/paC4whous
tcXq3zqOS4znMutsCXpFJ3KVSVxjvS1Z/9Ep/MtUrrPBlqY3dDo3mcGt7/9G
QthmpnuHEe4yi3v8AoCrUto=
             "], VertexColors -> None]}, {
            GrayLevel[0.2], 
            Line3DBox[CompressedData["
1:eJwV0D8o5gEcx/GvwaAeHn8WV6hnkIX8qys5yWDxZ8HCY2J4YiB3yd1GV3dG
j8LGgkUxoCwMPCPlGBmcyWU4V+rKgNcz/Hq96/Pr17dfamx6YKogImY82UTE
12TEMn9yj6s84RYveMBbnvGRV2z6EPGif+ui4ognVvKNzbY6XVIa8ZHV7GY9
W21Dul2Ps4efOZx/17agM3qJs9zgd7bZdnVWH3Od59xhh+1GH+k/zPE/L9ll
Kyxxv67gA1N8zt9ka9RR5htMsI+V7LWlda2eZAu/sZODtkXdr9eY5jYnOGo7
1HM6xx+85goztnu9qf9xn+F/nfKLLal/6RresYF/OW/7pF/zd7G4PGKEVZzg
OytTP8I=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0D0oRWEAx+H3LgbhXrLcATHIQkIpIRksPgaxcC0y3CgSCRspLMpH2Fiw
KAaUhYE7Uj5GBkxkQCll4LnD6fnV/5zT21vcP9I5HAkhjHpWs0KYioawxgUe
coPnXIqHsKuv9TEfecl33vGXz8zMDuGTcYZYCFW+K9NRXctCtrCcNbZuXa8H
2Mox9qTftc3qpF7mBLc5xzrbgV7RZ9ziFffZaHvQp/qNKf7whs22jBxn1/l8
ZQm/02eyVepIrn8wm+2Ms82W0KV6iNWcZhO7bIu6Q28ywT0Oss92oid1ivO8
5zqTthe9o794xIh7u+C4LaZvdRGfWMEPztga9F/6XMzJC6GXBRzkP6tXP5M=

             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0DsohWEAx+H3nMWA41IGBpcMspCilJAMFpdSLByDMuiIFAkbKSyK3MrA
gkUxoCwMnJFyGRkwkQGllMFzhq/nV//v+3p7S/pHOocjIYRRz2pGCFNZIaxx
gUfc4AWX8kPY0zf6hE+84ge3bPf6T78wPTOELxYwkh1CObNZyyK2sII1vuvW
9XqArRxjT+pd26we1Muc4A7nWGc71Cv6nNu85gEbbY/6TL8zyV/estmWFnN2
ncc3lvIndSZblY7m+AdjbGcB22xxXaaHWM1pNrHLtqg79Cbj3GeCfbZTPamT
nOcD1zloe9W7+pvHjLqzS47bcvSdLuYzK/nJGVuDDrnOxSz2spAJ/gOVpT9w

             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0T1IVWEYwPHn2mr5sVlDuTakBQoK3RoUBLPABoc+BLGGSJu6QQUFCWYN
CQ7eojvUkN6soIZstCEda8igIURuFy3NzK++NPqd4c/vec97znsO91Z3XWjv
TUVETsOlEVfKIrK8xRe8y9ccrIoYNb8zj3OGk1xizt60ecv8maXbI1a5i3l7
JeURe80VbOAetrCGHUzzLNt4kfsqIxY8V8M+6/08oCFzHev10NzARfc18rn1
QaY1YW5is96aW/nNfUeSc7Wudq3peHKGfuqENnQyuV+/1a1fKtkZcYZL+qse
/VGvvmtLGW3qkpb1Qyu6pmn98w3Xuap+fdRNHd4RcYefNKhj1sOcVXhvlqdd
u8+Ccsn7rR+wmPwWumr9iHNKeWaEt13Lc16Pdc96jF/0RHnrp/yqZ+r0fa9c
u1wRMcUBfmCW5+wVzSPmNb7kNv/xG2bsVZrfm6tZYC1XeMPeIXPK+UdZzlPc
zfP8D7EZZiY=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0T9IlHEYB/DHcmjI8i4IQgeVBsFFA5cIuhoSh84jVBr0igYP+nM21Uk1
FGlkLhctntDiYjcqkTc4XJAdNJhCFzSIQzlFDeUiUX1u+PL5Pu/z/nhf3rfz
2uSlfFNEPJH5wxH3j0aU+IwrLPEtiyciXumb+ip3+J4/+dKurv/Vv7GlJeI3
21m2O9ga0aMneZqdHORru179sn6WOaZ5h2Oc5nW+YIGLnOEZ55YbZ5IRFUlJ
1XyBazIgH80X+cO9VaZl27VhvpMR+W4eZ02ysm+e4Af541yOh45ETHJDbstx
c4FbMiUnzQ9Zl3/OPOIp157yi8zKOXOx8Xx5LhlzW8I7uf+K3q3n2c8HPM9R
uzk9oy8wyzJv8qpdRb+n1zjLz5znDbtdfUnf4xs2+xfrvGt3TP+kd/Er+/iL
j+1S+gHvN8RE45uwg7f4H354T4g=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwN0D8oJnAcx/GvnEE5j38l5YaHDMqCusWCM1yWx2ORQf5M6vB0E+rYjgGL
zuJ5SsqCspD8GRQDxqOwyXBnkDLgBsN5Db9e7/r0XX7JoUz3WF5EfPeyRRFT
iYgc57nDLE+4WBWxoS/0Pu94xieu2K71f/2XxR8jXviJm7YPJRENupwtrGEn
d22Nule3cpgpjvPI1qdn9DcucZJrnOU2f/GYq/zNLba6u9WH+pGnfOMlO2yF
xXZdyQfW8R+/2pp1fmlEOxNMs5op24Cu1xl+5jS/sMe2oNM6x35ucpSDtgP9
Q59zjjdc5ojtXq/rV+6xwJ+dcsJWoa90Lf+wic/8aWvT+WURXSxjP5Mc4zuF
vkII
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0T9IlHEYB/BHSIcorzKhFiELtxZzbMlcouW6waLBrps6KDUnU6rB/kGX
y6mgdVf4Z6mDFkXMRbDhEgfxhisciiMuJ6GhWgr8NHz5fJ/3eX8vL+97KjOQ
6m+IiMdSOBTxIBFR5Asu8RU/Mn8y4p1e0T+wxk/8yTd2n/U4HPGDCf5mG0t2
jUcizurHeZ6neZnLdp36df0Cs0xymGt2ffpT/TanOMIFlu2e6Yv6JNc5y22+
5zf2Hou4Knv6Dablr36Lm/LPM7I82Bxxl1syJCfMI6zIqHSYx1iVR3LJuS7X
nus7kpOL5jy/yoSkzNOsyYwknbnpWlH/Lq9l0DzHuszLQ3PP0Yhr7h3XU3qB
aZbYz4zdqn5f32COX/iSd+x29bf6H66wyT8o855dq17Vz7DOc/zFJ3bd+gHv
cIUt/78V2znAfeXvUVc=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwN0D0oJgAcx/H/U7jB20OoZ5B0pAwWZLrFyyLLwySDuE153Zxyt2FwFrF4
7eoWnrKQsChX5yxXHoWJDFwpdQMW5TP8+3zrt/2rB0e7RxIRMeHWCyK+Fkds
8Dv3uMpfXExFbOusPuQd//A/N21XOlEY8cAkX1jFjC0vGdGgy/mJNezivq1R
9+lWDjHNSR7b+vWsHuYyp/iTp7Y5vauXeMIfPOdf246+1Ud84m++8cKW1flF
ETdM8ZF1fGWnvVnnlES0M8keVjJtG9T1epwt/MYO9toWdI9e4wAzHOVn25Ge
1mec5zVXOGL7p7f0Kw/4wd9O+cVWoS91Le/ZxGfO2Np0bmlEN8s4wI8c4ztB
zkPk
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0T9I1HEYwOFXwXI4yws0bIiCEsHBIcsgEKIMlwjOG0Qc9HJS0NTNDrQh
qAZziVpKOgKXOojII/80CB542pZDOSkNKUSBg94iPQ4vz+f9vv7gwIuZkdRw
RUQ8Nm8TEVOnI3J8zgLfsMgXDREf9KZe4i+uc585t5+6siZil0ke8gLzbidr
I1p0Pdt5mXf5xa1V9+pbHGKKE1xx69NP9ZUzEZ/MsP2VvU1/Nln7nL3kb2/Y
C+aZt3lvN/WCeWlftXfqr+ad/bv9ni77boUfve1469ZFs2z/Z+/Xa8djP7IP
6m/mr+82vSVORYzbt/U5ndV/dJMu8xqrkhEdTDLN80z5/r5u1mO8zke8wx63
GZ3Ws8wwzwcccFvWk3qD09zia4647en3usxFVvsflPjQ7az+oRv5m1d5wCdu
t/UJv72LdczwEkf5H4H8T/Q=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwN0D8oJnAcx/GvlD/lcTyDPxkuw5EyWJxMFn82gz+TbvBvk7/jnXI2DFjE
gnooC09Z6HLPoqh7zmDwDJjIcKfU1Q1YeA2/Xu/69F1+tUMTPeN5ETHlpUoi
vn+I2OEKj7nFc65VRxzonP7JB/7mf6ZsNzo/EfGXSb6wlmlbUVlEk65kG+vY
zR+2Zv1Ft3OMvfzKU9ugXtQT3OAs95i1Lekjvc4z7vKKl7ZDfa8z/MdffGPO
ltOJ0og71vCJDby2veoWXVAe0ckk+/mRI2zkDFs5zy4OuFvV/Xqbw0xziqO2
jJ7TF1zmLTc5aXvU+/qVJyz2Z1l+s1Xpa13PP/zMZy7YOnRhMqKPFRzmJ07z
HYDjROs=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0T9I1GEYB/BHCLIwrW6wgwZzsAgaXDKaREhrUsQOWhqOyyUyLUdP0BDB
P2CBhC4l6IGLCS1G1A0FF2mCIF7QKULRUEEhNHS3+Gl4+Hy/7/O+Pw7uXPp+
d19VRIybpZqI0bqIHB/zFZ/zA58mI17IRfktv/MT/3LRriQfORHxkwmW2chV
u2MnI5rlM2zleXbytd1l+bZ8jffYwyG+t0vLk3I/5znMZW7YTclrcttp3zFz
ekG/IedNTt/Ru+Sy++/40tk3Z7fkwv97+oGelj+adT1qI+7Km+aPd0Vntc4G
9S3zVT+rZ+Vt81u/qI/Jn82BNxVnV5xN6yVz9FREhz4r75uEntL33G2Q78iX
OMirfMTrfMIUF5jhKh+w17u8PCJvcoa7fMYBu1/yilzhGx73X2wwa5eUv8gX
+IMt/McJu3a52u+7yXpm2MSHPARJUVRJ
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0T1I1WEUgPHjEKhpmjik4CANKVqECN6wRQStphJKaBEUm0LJj1GFlBZN
UCFClwpEadErIilhDg4GqaMO2VQ0WKD4iTr4u8PheZ7zvu//Dre4ub2hLS0i
RsxUVkR/TsQ0juISfsTv+L4gYpZv82/4FzfwGCed7fAr2RH/MB/P8SYmnWXm
RlTwAqzBEnyMZXneO5/BKrsmu3I+a+p0m77Nk+ap7tF3+Yk3c9hiN2RXyefN
Kz2hE3zB9OnP+j4/9eYLvrVbtKvlX824XtOP+IqZ0lv6CT/3ZjX1bbs/ds9T
d/gBb+E/eNq1iJd8391tnaO79W9exHv5Hi/jb/iBexf6nh7W6dcjHvB3PJ83
8gl+6F6xfqE/6Du8m0/yaj7Ap/mRew/1mG7ET9iKSezEFXyNmziCv1Lfww7v
/vMZfoHLeNV/to69zgr5T16Ku5jAMxx0Vs8z/PYzvIGteAu78BKiEljy
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0D8o53Ecx/E3g3L+X/0GlCIDujJYjkwWfzYGjJJ+tpPLGd0VNgxYxIKS
PwvKguI3GCh/sqALdUU33Cmlbji/8jB8ezzr9fn0rU9570DHl4yIGPSt5UaM
FUSsc4Z7XOIJ54ojtvSNPuRvnvMfV2x3Oisv4i8TfGUlt205hRF1uoRNrGY7
922fdY9u5gA7OcIjW5+e1F+5wB/c4KltSu/qeR5zlde8tO3oR53iy/t5ZuZH
XNludKF+YBmf+Yk/bWndoLOLIlqZYDfvbRW6X9dymI0c5y9bm57V3Vxmktvv
/7AN6ZQe5QWnec9FPnGTaR4w15ud8bt7pfpW1/AP6/mfE7YW/eFjRBeLmWQV
v/ENlKFGqQ==
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0D8o53Ecx/G3DFf4nT+D8qd0yYCUweJ0k+WO7bdgpMTkSBilsDkDt4jF
XUl+i1O3oI7BQPmThV86v1L+DCilDMjD8O3xrNfn07c+n7q+J/uyImLAt5IX
MZEfkeIsN/iLe5wrifij03qLNzzkE5ds5/pDIuKOxXxhFddseQURDbqMzaxh
kpu2Rt2pv7KfbRzljq1b/9CDXOAYU9y3Tet1Pc9dLvOUx7a/+kpv8/H9PLM/
RpzY0rpQX7KCD6zjme1VN+mcwogWFrODGVul7tX1HOEXTvLC1qp/6g7+Zg/X
3v9hG9LbepxHnGGG17ZFfa9X+cp/THi3A5bzP2t5y8985pR733RuUUQ7S9nD
ag7zDRwkR4Q=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0D8oJnAcx/GvMijP49/yJBQlA9fVDRZksvgzsfCMBrmFlJzxUs54Bixi
QUkxoCwonsFA+dMtSEepOwan1JWBx+sZfr3e9fnVr341/cPdQ3kRMeKsJyJ+
FEdscJZ7XOYJ58sjtvS1PuQjz/nKVdutLkhG/GOK76zjti1ZEtGoK9nGBvZw
39ak+3U7R9jL7zyyDeifepSLnOA6T23Telcv8JhrvOIv247+qzP8n7vP/KKI
S9u1LtN/WM0XfuaNLatbdGFpRCdTTPPOVqu/6i8cZyuneG/r0nM6zRUOcjv3
hm1MZ/QkLzjDOz7YlvSz3mSWByzK/a3tTFfp3/zEJzbzjR1MlEX0sYKDrOc3
fgCZ4EhT
             "], VertexColors -> None]}, {}, {}}}, 
         VertexColors -> CompressedData["
1:eJwcnHc8le8bxykjsjIyCyWEyIqsK5XdEopEWRmJrKTMKCsqZMRXKiWraSVZ
[encoded data, 159120 characters]
uPoR+UN5bIhqCPKH1vXf4nAqKP8/9QjfmIDs2flb1cZ1Av4XD22pAA==
          "], VertexNormals -> CompressedData["
1:eJxcm3lYzd36xpV5iEhEaVChkIjMPZEyiwZJQhkSkSQpojI2GFJE0SSV5llJ
[encoded data, 130380 characters]
olWO6+xqZlap38XdOJJsYabQ4vtHeTP9H3MfN64=
          "]], AspectRatio -> 1, Axes -> True, AxesLabel -> {
          FormBox["\"x\"", TraditionalForm], 
          FormBox["\"y\"", TraditionalForm], 
          FormBox["\"z\"", TraditionalForm]}, BoxRatios -> {1, 1, 0.4}, 
        DisplayFunction -> Identity, FaceGridsStyle -> Automatic, ImageSize -> 
        Medium, Lighting -> "Neutral", 
        Method -> {"DefaultBoundaryStyle" -> Directive[
            GrayLevel[0.3]], "RotationControl" -> "Globe"}, 
        PlotRange -> {{-2, 2}, {-2, 2}, {-1.0646150271627863`, 
          1.0646150271627866`}}, PlotRangePadding -> {
          Scaled[0.02], 
          Scaled[0.02], 
          Scaled[0.02]}, Ticks -> {Automatic, Automatic, Automatic}, 
        ViewPoint -> {1.3000000000000003`, -2.3999999999999995`, 2.}, 
        ViewVertical -> {0., 0., 1.}],
       "\"x szerinti parci\[AAcute]lis deriv\[AAcute]lt\""},
      "Labeled",
      DisplayFunction->(GridBox[{{
          TagBox[
           ItemBox[
            PaneBox[
             TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
              BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
           "SkipImageSizeLevel"]}, {
          ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
        GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
        AutoDelete -> False, 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
        BaselinePosition -> {1, 1}]& ),
      InterpretationFunction->(RowBox[{"Labeled", "[", 
         RowBox[{#, ",", #2}], "]"}]& )], 
     TemplateBox[{Graphics3DBox[
        GraphicsComplex3DBox[CompressedData["
1:eJxcnXV0FcnWR7FBB3fXIIM7gYGgwSXI4DIM7u4QPBAguLu7Bh9IkBCSYBEs
[encoded data, 66480 characters]
Wtr1+/8AvZj+6w==
         "], {{{
            EdgeForm[], 
            Directive[
             Specularity[
              GrayLevel[1], 3], 
             RGBColor[0.880722, 0.611041, 0.142051], Lighting -> "Neutral"], 
            GraphicsGroup3DBox[{
              Polygon3DBox[CompressedData["
1:eJxMnXecFMXTxvfy3e7O7O4Bh6iYMGFCRVGRJNkAimLChCKIYELBhGQEBURE
[encoded data, 43140 characters]
ntrw/ef/ACN7hyE=
               "]], 
              Polygon3DBox[CompressedData["
1:eJxFnXm8VdP7x890z7lnuPcMe+9rnud5CJEoJWOKvpFKpMwiQyRkVkgRmSIi
[encoded data, 32160 characters]
2qNgXTBz9v7xeoVvBj4Z+Odgq4l/MHP8h2X7aOCrgc8U/jf/B0M7NYQ=
               "]], 
              Polygon3DBox[CompressedData["
1:eJwV13t8z/UeB/DvMsaYS6TjHCdRSm7RcisdpeM8nMdQ7pc4NEftHDXpOGdZ
Jsxt7pdJSKllTNNYDVnkLppkjGWM1bI4ORwOh6N0nt8/fo/HPPd6fd6fz+f3
/W3TOH5Mn8Q7giA46lXZ6+xdQVBeMwiiawRBmypBcK1OEHzLzrEarD27xcrY
96w6i2U3WDn7gdVknVnEnUHwMfsmJghuRwdBpkG7awdBet0g+IXdVT0IrrMy
1kduT60gOKV7sWoQXNb9ntVhHdkB6zVn9dgito51l8th/dledppdZldZBltj
RoG5EWZMMeNfbIXcLrl0uQNy1dl8toZ1YZnsTTZe9x3dhIgg6Kn7W7ZEbr1c
b7ktcvexpSyHDWTb2b3sTfYR68fy2QPsLbaBDWE72UWWyJaw21HWYdfqBcFf
2RS2k81h3d3VB/ay1V7220uyvcSx1SyfHWQp7IbuaN1U3T2683XHyBXK/SA3
wh3kyL3EjrAKNoxls0u6CbqTdPN1p+teYX9hk9l2lsZW2vMk3dW6KebG6/6a
pctly/Vytjy5mmwBW8u6sixWmc1lq1kntoodY7M9Lxs9BxEevnmeoTTWw4yx
ZhR6Hn9jxlKWzN5lo819li10jtusnu5V5yhlD8ktM2OjGcPM2GPGUTbLjA1y
tyPNM+NutljuQ7k4uVy5qmweywyfXZbBZrGeZrxqbpG93GPGu2wKW8NS7SWB
vcMms0w2iY1i77NpbB2bw8ayVSyVrWXT2Wj2qnMcZefZSOfIZd/JVdhzTHhX
nvvb9vwemyqXJZemmyg3k8WxV9hh+/tVeFfWC3TrO+9N65WzL7yXTzhbf+u1
8F4OcbblchFyd8v9JFch96H1cqx3zHoN2HK2nm1kx1kjtoplsfWskNVl6eEM
1t56z1mvrJKv7XmuudXNvc/c6c7RwNzi8PMmlycX4z1fLtdR7hP2JRvC8thi
FqPbVHeObiPdA7od5IbKlZvRSW6GXDW5xnKT5OrKnWTPs/Es03nHshNsBHuN
ZbBEts56HznHUeeo7xxLneN4+Jya8bEZUfaSbsYs3WjdJrqpZtTX/VTujG6k
3BbdIt1AboruMpbnWRunu0WuVK5SaHKFcgvkaljvfuulWa+h9b4JPzO6m+Rq
m7tSt9R7NJAlsqbW6x7+3GWD2BjWjMWxU7pb2Vm2Uncfy2YbzC1ytobmrjS3
irlT5VbI5esmhzPkPmPfsgzdAnan3Ez2LtsvN51NZVXt+V57TrHn2vZcbi+D
5V6RayHXS26DXDu5nnJ13XPX8D2X6y/3klwjua5yE+WqyN0jl2S9aLkKuSFy
Y+Vay/WWO21/+ayMrbK/A2yybpRuI91k3RjdEt0Bci/LNdHtJrdEd5A7SHEH
1709XdxBHithgVy2eznANus2132KpXmuaut+IndS7hfdLLl9crvlWst1k1si
11Bur710tpd+9tLMeQeGv/NYe9aL1WfdwueFdWTPsoYsju2wXivr/d56i6zX
wHqfyXWS6y3XSK6X3Da5lnJPy82Xqy/3ndyf5SbI5cgly1ViqXLLw2fSHSTJ
bWId5J6RayDXXe53bJPcIbkR7jRfbhd7XK6vXFO5fnL57iBS7iG59uZecgdb
WSXWjMWyH9lnrDJrzjqxK+xz6z1mvT7Wa2K93tZ7nOXJFcgNM3eLuX1ZCbsa
/txgxWwwO82usQpWys6ykdZ73XrZ1kuy3i5zq8u1kYszN1JuMzvtfbuD5Xrf
DtvLed0XdCfq5ulO0t0kd0ouQi5HrkDutFy8XLJclty48OdG+HvBjE/kou1l
qRnD5c6w/7KLrJx9LleVtWJd7eWW9bazKNaSdWE32A5WjbVm3dhtto1VYS1Y
Z3aNDTDjFPtP+LPOjBIz4tlZdoNdZhVsKCtl19kFVsZ2Wi+aPcy6Wy+C7Wft
2BBWymLZVs9VC9aVzWF12TnrjXIHKe4g1x2kuINBuvtYKbvqd+N1tpZlu78j
Ph+13d9Ce17NsthXLIrNZM+x/bpndK/r3tQ9yIaaO8XcUZ7TAeYuYv11k3Uv
+ni2161gdXUf0z3sc95G90s2TDdVN0F3sO6P7GW5dLlb9pwud4gNl5smlyg3
XK6A/YlNZaPZUHaEjWRpLJmNZl+zeDaTJbEElsOK7O9/9rfc2Tbb314WKzdI
rtj9tZJ7NPxZbC+F4Z6dt9Be9rBH5AbKFck1l8tlxdb72XoZ1tthvY9YLjvB
mrAMtpGdYD+xVWwb28COs1tsJdvKClmaGTlm3LLnmWac97rimYj0/cpeV2TO
e3WxvxfsL95dDbe/f7KnWAJLYKPYCjbRjAwzkvy9MVT/j2yn3Ddy5c5WIfcM
281K2AV2kfVgu9hJVsEusB9YPfY4K/RexrIEz1qZPUdZ+7p9XrTfC3JPyr0o
N8pe4sO/VViKvbxvL+PsZbD8aN1vdav5+qbuZd1lchPk3pMbKzfA995mb7AP
WDIbzpqG77H3oY3+LbMuy1zyuuHrm14FvtdY5i32uu4q3UTdvrrN+FHfb6v7
s+y/w/N71fDvtu6+l+9FySxk/XTH617wPMfqfsVGyE2XG+s9ig+fXed40Tpv
OO8W50113ifktrEiVuz+SlhLuQ26+8MZzpulO0+utxn/MKPMjOZmPCKXK3dA
rp9cjlw79jE7yAayXFai+yk7w5az3WwB62u916xXYb021ntYd6PcF3K95bLl
zoT7Y9+xTHaY1ZKbwd5he5wtlc2X62O9JOuVW6+V9ZbJ1XK2B51tkeegafh3
GItlcSzGHXRm69mjrAerzbqE/y9jNdkDbL5uE1aDTTd3pbk7zZ1k7gfmrjX3
kLmRPh/Twv8byOXI7Qt/V9hzptwcuWfkxsmV2N/9cplsHTvMonVnszXsQ/Y1
i2Hz2D72qPUGW68kfJasd5g9z2awcfYyijX1MzZJd65uW89Qd91zcnc6Ryfn
KHCOVs6xmA2Qe13usr10kusQ/u0jdzT8zHgOiuSeZp+zE6yUlbEiNsfcXHMj
nW2huY+Ff9fJHZMrkiuWm8ueNePvZpSa8aAZJ9kW3VLdpbo7dJ9k23WP65bo
lurOZr10/6ZbrNtYt5o7nab7tu52503R/YPcDt1i3TLdct10NlB3gu5V3c66
ddhCuSy5bnLZcv8HRrtqyw==
               "]]}]}, {}, {}, {}, {}}, {{
            GrayLevel[0], 
            Line3DBox[CompressedData["
1:eJwl1EdsiHEcx+GfUqNodaEDrVGzajWCSIlUI4iECxcrRsQKIrhw4cLF3qt2
7T1bO2JEEEEEFy5cuHCxn5fD4/N+w6Hv//9W8dT5Y+fVi4hMf5SlRSTP3fVe
k4i+nqezhewWEQ/0B6X+UaU9SddxhyX2N+2cEjGBGnuN1vGFN3Zx/YhxrKJ5
ZsQl/URBg4gKe7Su4AwL7A+amxpRxX57mR7jHS/sjIYRQ1lEo6yIg/qKJo0i
BtiDdC57mG0/0/qNI8rZZc/UbTziif1Ly7z3FH7T2zls0FLtxEbPm9hMenPn
olvZRoa9XXewkxb2Lt3NHjLtvVrNPrLs/XqAg2Tbh/QwR8ixa/Qox8i1j+sJ
TtLSPqWnOUMr+6ye4zyt7Qt6kUvk2Zf1ClfJt69pLXUU2Nf1BjcptG/pbe4Q
3r8Pdz331BLWe56cbP44v5/O7yFbeWzP0H6ksMN+6vx3M4dZ9kBtzEt31t8+
oAsZQqqdrm/d9VGeu++lOpwcqu33vo/TLGe+PUrz+eibGmxf1JWMpaldpJ99
i7W89j2u1vGUcNj+6vu9zVoW2xO1B9+9/jD7vm5mGve9c6/kTDz30BR6e+5F
GWPsnsnvSvL3jLa7aze6MtLuop0pYUTyjWlHOlBlt9diiqi022lb2iQ/j12o
BeQz1M7T1rSiwm6pueQw2M7WrOR3nUG2V4oM0hlgu/JoRlP6p/278kiu3vVF
ueGqwpWE44++tqMORxqOL+ql/f//4y8/m3cs
             "], VertexColors -> None]}, {
            GrayLevel[0.2], 
            Line3DBox[CompressedData["
1:eJwVybVWQ1EURdEb3AIhEHfc3V06SkqcYB0M/gJ3/pdJ8d7c96xK9W7/NhJC
uPd1xf5/IcQZYTdrmOBeNIQka71TrGOaD4kQDpIhZOx6tywbmOOjdqjl7Ua3
AptY5JN2pJXsZrcyW1jhs3as9ditbr1sYx9ftBOt3466DbCdg3zVTrUhu8Nt
mDGO8E0700btTrcxxjnOd+1cm7C73CbZzSl+aFVt2k64zTDJWX5qF9qcnXKb
Z5oL/NIutUU747bELJf5rV1pK3bObZV5rvFHu9bW7YLbBovc5K92o23ZJbdt
lrnDCnf5B433Igw=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwNy1VORUEURcFmACQkBP5xd3d7uLu7PlcSRoL7FJkA9XFTu8/KrbhIb6SK
QghZ33RJCJWlIURYxRlWc5Z/ZSHU2HN2LedZxwU+FIewyHrvJTZwmY/+uSsP
YcVudFtlE9f4pEW1dbvZbYMt3OSzFtO27Fa3bbZxhy9aXNu129322MF9vmoJ
7cDudDtkF4/4piW1Y7vb7YQ9POW7ltLO7F63c/bxgh9aWru0+92uOMBrfmoZ
7cYedLvlEO/4pWW1qD3sFuMI4/zWclrCHnVLcowp/mh5LW2Pu2U4wSx/tYKW
syfd8pxigRHe8x8pGzIm
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwVzcVOA2EYhtGfCyAhIbDnYnAv7lB0BWFBW1oquLu7Foergz2HxeS88z2Z
TFl0KjJZEEKY9sSLQigvDiHGCiZYyVn+lIRQZSftaqZYwzn+arV22q5jhvXM
8rkwhBwbvM+zkQt89M1MaQiLdpPbEpu5zCctpq3YEbdVtnCNeS2urdutbhts
4+b/v7SEtmW3u22zgzt80Wa1XbvTbY9d3OerltQO7G63Q/bwiG9aSju2e91O
2MdTvmtz2pnd73bOAV7wQ0trl/ag2xWHeM1PLaPd2FG3Ww7zjl9aVru3R9we
OMpHfms57ckec8tznM+c4Av/AOFoQl4=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwNy0VOg1EYhtHLAkhICMzZEktghrW4W6FUYR94HVrc3Sm2EWDIGfw57/2e
/G0d0fZIQwih37faFEJncwgr7OIau7nOn5YQeuwNu5ebjHCLv1rUztl9zLOf
Bf5pA3bRHmSJQyyz3hhChcPe2xzhDnP+ibWGULVH3Woc4y7z2ry2Z4+77XOC
ByxoC9qhPel2xCkes6jFtRN72u2UMzxjSVvUzu1ZtwvO8ZJlLaFd2TG3a87z
hhUtqd3aC253jPOe21pKe7AX3R6Z4BN3tLT2bCfdXpjiK6taRnuz0251ZvjO
mpbVPuys2yeX+MVlfvMfxKRSwA==
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0EVOQ2EYhtG/uCQEQmDOllgCC4CwD6CFUtzddYbLLnB39xY9DG7Oe78n
d3LLKqrKKyMhhGrPdmEIdcUhbDHKHca4y2RJCPX2nt3AfcZ5wJTWaB/aCR6x
icf81JrtE7uFp2zlGb+0NvvcbucFO3jJtIIQrtjp/ZpdvOGCb2pKQ7i1u93u
2MN7Lmq12oPd6/bIPj5xSavTnu1+txcO8JXLWlR7swfd3jnED65oMS1pD7ul
OMJPrv7/E+3LHnX75hh/uKY1aL/2uFsoCmGCEa5rcS3NnnRL5xQzuPH/L7VM
e9otizPM5qaW0HLsWbdczjGP88znHy1CVmU=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwVz1VWHUEUBdDin+DuEAgSLGiwSTADLDj8Bl+LQUCCzAKH4Bpc5gEMILL7
46x96t5Xr7sLu8c7x2JCCPPyITGEteQQYrnOOG4wnn9SQ9jUE/QtJnKbSfxr
t6Mn67tM4R5T+c/ul56m7zOdB8xgSAvhUM/Uj5jFY2Yzxu5Ez9FPmcsz5rEm
LoR8njsXcMwzxqVQf+WJu9/ZJUVm3ZyQHvno3MtJ6ZNi52+ckgX33lhi1s9p
GZBPzoOckSEpdR7mrCy6884ysxHOyaiUO194v4ro/Z1/+N1n/dKsklesir7J
7qddtf7brIbXrI2+z27J7ot+Y1bHW9ZH/223bNeg35k18p5N0TPsVuya9Qez
r3xkS/Rcu1W7Vv3JrI3PbOcLO/gfohJGYw==
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwNy8VOnVEYhtGNz0gIgTk3AhR3LS6FAxQ/J9wQzs1Aiwxwl+JW3AaswZ/1
7O/NnxWJ1UXjQghjvpy0EFbTQ8jmGnO5zh+MzwxhQ+fpTeZziwVMsG3rQr3D
Iu6ymIm2PV2i91nKA5YxyXaoy/URK3jMSibbTnSV/sdqnrKGKbYzXavPWccL
1rMtNYSfvPRu4BUbOZ8Rwrj/mvS1WzNv2MIF24StVd+6tfGO7fxjm7R16Hu3
Tv7nL/61Tdm69INbNx8Z4aJt2tajn9x6+cw+LtlmbL/1i1s/XznAZdusbVC/
uQ3xncNcsc3ZRvSH2yg/GeUXY/wGKJxLgA==
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwVzNVVQ1EURdGLu4RAcAnSECVQABLc3d3dfnCawSkGme8jY+6cdcdLdnS1
d6aFEFJ+PbEQfuIhdPOXKf6xl7kJD8pD6LPT2M90DjBPy7AH7UwOMYvDzNey
7RE7h6PRtzjGAi3PHo/ecSK6cZKFWqE9ZRdxmsWcif5rJfasXco5xjgfvdHK
7AU7zkWWc4kvFSHc6Mt2hdsKE1zlq3arrdmVbuus4gbftDtt065222INt/mu
3Ws7dq3bLuu4xw/tQdu3690O2MBDfmqP2pHd6HbMJp7wS3vSTu2k2xmbec5v
7Vm7sFvcLtnKK7bxmv9XCTdC
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwNzkVOBFEYRtHHBvDuORPc3d01YQksAMKWcO9u3N1dZuhWOIPKufV/qaSy
xiZGx5NCCJOe6bQQsjNDmGIOZ5jLWaZEQ8jTczqf8yzgAlNthXpRF3GJxVxm
mq1Er+hSrrKMa0y3leuYrmCclUwww1al13U1N1jDTWbaavWWruM267nDiK1B
7+pG7rGJ+4zamvWBbuEhW3nEneQQjtnm/YTtPOVnxL/67kx3uJ2zkxf8ssVs
l7rL7YrdvOa3LW670T1ut+zlHX9sCdu97nN7YD8f+Wtbtz3pAbdnDvKFf7YN
26secnvjMN85wg/+A3rkQx4=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwVz8dSVFEUheFDmlIFRVDCgDcig5KRnEGCOiIovBDpAeANQHLoJueMgAp8
d7Dr/9de91TvLmjsLe5JCCGMm+W0EAozQljCIvyNxbiC2VkhlPBVXoprWIbr
+EFXzjd4BW5iJW7hR90nvs0/4w5W4S7m6Kp5jNdgHGtxD3N1dXyf1+MBNuAh
5uka+RH/gsfYlxnCqGmST+Rbnu+7MWy2O7Xr5+OmRT6TB/iEaZXP5a/8p1nw
rs3uwm5Q/mXa5Ut5iE+aDvlKHuZTZtGbTrtruxG5i9/wbrzFvdQQ7rBHvsde
fMBd3057+xj9B7s/0Z34hDHdjO45utXuJboR/2JcN6v7F91o9z+6DV+j39LN
6d6i++xCupswAfd187pE/s0uCb9jMv7AFHwHnZpY5g==
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwNy8VVQ1EYhdHLBIcESIKTBEKCu/RBCRQAizHu7u5OD0g7SBnswVv7u/9Z
Lz0+OTaRF0KY8hVUhjAdCyGfMyzkLIvYlAhhThfreZZwgaVM2hZ1mV5iOZcZ
Ycq2oqN6lRVcYyXTtnVdpTcY4ybjbLZt6YTeZjV3WMMW266u1Xus4z7rmbEd
6AZ9yEYesYmttmOd1CdM8ZRpZm1nulmfs4UXzDBnu9St+opZXjPHaCSENt54
t/OWHfyOh/Duv05959bFe3bzx/Zh69EPbr18ZB9/bZ+2fv3kNsBnDvLP9mUb
0i9uw3zlCN84yn83HTFo
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwNzjVOAFEYRtHHCkgI0NPhVuHu7u5OA2FVuLu7O6wC2ASnmJw7/5dJJm5k
tmUmIoQw58mOCmE+OoQsLjCHi8xlfGwISzpPLzOfKyxggm1VF+o1FnGdxUy0
begSvclSbrGMSbZtXa53WMFdVjLZtqer9D6recAaptgOda0+Yh2PWc9U24lu
0Kds5BmbmGY71836gi28ZCvTbVe6TV+znTfsYIbtVnfqO3bxnt3MtD3oHv3I
Xj6xjwWRIfTz2fsAXzjInxj/5rsh/eo2zDeO8Nd2ZhvV725j/OA4/2zntgn9
6TbJL07xm9P8B1wqQsY=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwVzsVNBWEYhtH/VkBCgD014FoEJbDE3d3dnWagB9zd3R0Oi8l55nszycTn
FucURUIIpZ786BCWYkLI4zILuMJCJsSFsKqL9BqLuc4SJto2dKneZBm3WM4k
27au0Dus5C6rmGzb09V6nzU8YC1TbIe6Th+xnsdsYKrtRDfqUzbxjM1Ms53r
Fn3BVl6yjem2K92ur9nBG3Yyw3aru/Qdu3nPHmbaHnSvfmQfn9jPLNuzHtAv
HOQrh5hte9PD+p0j/OAoC6JCGOOn93F+cYJXsSEs+G5Sf7tN8YfT//9sW7TN
6F+3WQa3OUY4zz/RZVK8
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwVzNVNADAARdHi7u7uugHuf4zAABDWIbi7u7uzCjNw+GjObV7airGJ0fGI
EMKkM5MZQmROCNOM4iyjOceO3BBi9LyO5QLjuMhOW7xe0glcZiJX2GVL0qs6
mWtM4Tq7bal6Q6dxk+ncYo8tQ2/rTO4wi7vstWXrPZ3DfebygH22PH2o83nE
Ah6z31aoT3QRT1nMMw7YSvS5LuUFy3jJQVu5vtIVvGYlbzhkq9K3upp3rOE9
h221+kHX8ZH1fOKIrUE/60a+sImvnEoL4Y3N7u9s4Qd////w7lO36i+28Zvt
/OEfFkI4fw==
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwVz1VOxUAAhtFhBSQk8M4ScHeHi13cCQuAsEuecHd3d4czD8352r9pppkT
U8nJlBDCtGsuLYSs9BBmmc155nCBiYwQcvWizuMS87nMVluBXtGFXGUR19hm
K9bruoQbLOUm221lekuXc5sV3GGHrVLv6irusZr77LTV6ANdy0PW8YhJW70+
1g08YSNP2WVr0me6meds4QW7bQl9Gf+HV/HsvGaPrV3fxHPxNp6Bd+y1JfV9
/D4f4rf4yD5bj36K7/E5PuML+239+lUP8I2DfI/3tiH9oYf5yRF+cSY1hG+O
uv/hGH85zj/+AxttSsQ=
             "], VertexColors -> None]}, {
            GrayLevel[0.2], 
            Line3DBox[CompressedData["
1:eJwV0DsoBWAYx+GXIrkuLgtKDBKLY1CUGAwoHWWglGSg5CQDpQwGSp3BQCmD
gVIGA6XOYKCUwUApZaGUTBSRweUxfD2/+r/TVzOWGpjOiogZL5EfUVUU0cJG
JtnGUfYwxSEucoJpzvGtLGJLL+t9rjPDHb7bLvShvuUpn3jFD9uHvtc5BREv
LOUPv2y1uqg4opmV7GQDv239ulWPsJtTHGR2ecSCHternOUml5hn29Nr+pjb
POcBS2w3+kQ/8pJvvGOFLasw4vn/jp+sZm4JbU26TLezjr1MsN42rLv0JJOc
5ygTthWd0htc5C7T7LAd6S19xn1eM8M+24O+0K+85S+fWOzf/gBD4kBn
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0D0oBVAcxuE/inxbyIIUg8TioxQlBgNKdzBQijJQvspAKYOBUgYDpQwG
ShkMlLqDgVJ3MFBKWSglE0VkwHOH0/Or9wynUz02k5jOiIg5pyUvorIwopUN
TLCdoxwqi+jVs+nmMie4wQXucpVH3GKS+/wsjUjpE33PC77whl+2L/2os/Mj
3ljKP/7YanRRUUQTK9jFev7aBnSbHmEPpzjILO9c0uN6nfPc4QpzbYd6U59x
j1c8ZontTp/rZ17zgw8st2UWRLym7/GbVcwppq1Rl+kO1rKPzayzDetuPckE
FznKZtuantXbXOYBN9hpO9W7+pJHvGWS/bYnndLvvGek/5TF/AeyQT9C
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0D8oBFAAx/F3UeTfMThZ/BkYJBYiRYnBgOIGA6VukKjTDQZKGQyUusFA
qRsMlLrBQKkbDJS6wUCpKwulZKIUGfjc8Pp86/eG12tNrEwnIyGElNNXEUJz
dQj97GKcg0xwNhbCuE4Vm5tcYpqLtjWd0dvMcp85HjPPcxZ4zTfe87ve0c+6
rDKED8YYakL4tbXpqO5hE0fYyT/blB7Q8xxjkjMs9ZYNvaB3ucpDbrHCdqr3
9CWPeMsz1tke9ZV+5R2/+MRGW0lVCO/Fe/xhC8ujtHXrBj3Edk6wlx22OT2q
lxnnOhPste3olD7gJk+Y5rDtQmf0DbN8YI6Tthed158sMFL8U9byHxBMPik=

             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0DsoBlAcxuE/Ue63csmChUFioVCUGAwoGQyUGCQiXzFQymCglMFAKYOB
UgYDpQwGSn2DgVLKQimZKEUGzzecnl+9pzOcmvG5wdm0iJh3WnMiqvMj2tjI
IXZwgiNlEX06kWqucppbnLIt6X29zhPu8JILtkOd1Gd84jXfec8fvjArN+KT
5UwriPgrjajVRbqZVexmA8Obg7pdj7GXcxxmpm1FT+pNLnKPa8y1HettfcED
3vKUJbZHfaXfeMdvPrPSlpEX8ZG6x1/WMLuQtiZdoTtZx362sN42qnv0DIe4
zAm22DZ0Qu9ylUfcYpftXO/rG57wgZccsL3qpP7iE9NT/8li/gOnQD0a
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0D8oBFAAx/GHKOcQSmRxFgaJhYGixGBAdIOBohskf1MMlBgMlLrBQKkb
DJS6wUCpGwyUusFAKWWhlEyUYvG54fX51u+95cWmFkbm80IIS05nJIRYaQhd
bGWc3UxwvDqEQb2ca25xlknO2NZ0Su8wzQNmuGI70Vl9wWfe8IObtgf9q19Z
XBLCF2uYXxZCIyvYznr2sYV53o3qLj3JAS5yjEW2DT2t97jKI24zajvT+/qK
x7zjOatsT/pav/OeP3xhna0wGsJn7h7/2MBIOW1tulb3sIlD7GCzbUL36znG
uc4EO2y7elkfcounTLLXdqlT+pZpPjLDYdubzupvPrMg95+s5D95hz0S
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0D8oBFAAx/Enou4chRRZjoVBYmEhSgwGf9INBkrdIDldKQZKbjBQymCg
1A0GSt1goNQNBkrdYKDUlYVSMlGKweeG1+dbv/eWF59fnkqVhRDSTn8khNZY
CAPsZoKDTHK2MYRxvVJqZrjEfS7a1nVW7zDHQ+a5ajvVBX3JIm/5wS3bo/7V
r4xEQ/hiE3dt5TUhtOs69jLOEXZxmv2c5xjTnGGVd5t6Qe9xjcfcZsx2rg/0
NU94zws22J71jX7nA3/4whZbZXUIn6V7/GMbo7W09ehmPcQOTrCPnbY5PapT
THCDSfbZdvWKPmKGZ9znsO1KZ/Udc3xinpO2N13Q3yyyovSfrOc/hv4+Dw==

             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0D0oBHAcx+Gft8VxyMtABrEwGFiYvJQyGLjFYCDqBolSwkCJwUApg4FS
BgOlDAZKXTFQykipGyll9FbeHsOv56Pv/y5d3ehUajInImZdR2FEfXFEJ1s4
yC6mOVwV0a9n/psrnOQmJ2wLek+v8ZjbzHDOdqBv9SmzvOILl213+ks/MpGI
eGU11235yYhGXc42vpVEvLtkacSF/UN/uhJ///DXjXnX5/00h7jEcW5wnrtc
ZdLnj/SWPuc+b3jCStuDvtTPzPX9ea7U5bsCV+tNGQtdwlUWRXx738Ai/0eD
vVXX6G42cYDtbLaN6F49xUEuMs1227qe0Ttc4SE32WM703v6mse8Z4Yp25O+
1W/MsuD/d2YF/wB74UEp
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0D0oB3Ecx/GvAeV5wMJCLAwUC4NCkcGAlMGAlEEeSgkDJQYDpSQDUoqB
UgYDpRQDpZSFUjJRio0Qef2H6/X+9bm7rivqG2kfToqICVd9WkRJZkQDq9jF
Bg6wJz+iTY8nmvMc4QqHbNN6Wy/ykOs846RtT9/oYz7ykm+cs93pX/3MjPSI
DxZwyZacFVGmc1nD7+yIYt2sV+0/zpXOnc6RE1Gn+3Urx7jpnm49qwe5zClu
cce2oA/0Gk+5y2seMd/+oC/0K1O8/1Z/6VT9pM/dk5rhu53fE8/oP5Yy07eV
2qt1oW5kOdtZywpbr27Ro+ziDAdYa1vS43qD89znCptsJ3pbX/GQ9zxjh+1F
3+hPPjIl8a+Zx3/41UPc
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0DsohQEYx+HX4n5bsDBILAwUC4OBIoPhkDIYKGWQS6lTDJQYDJSSDEgp
BkqdwUApxUApZaGUTJRiI7k9htPze/uf8/V1ygdGEyNpEZH0acmOqMyLaGU9
e9nCIfYXRyR08r85zzGucMQ2rbf1IlNc5yknbXv6Wh/xgRd85ZztVv/oJ+bl
RLyzlEu29PyIal3ERn4VRFTodr1q/3bXuXvcaYURzXpQd3KCm77Tp2f1MJc5
xS3u2Bb0gV7jCXd5xUPe85wvzPTsG/2ps/SjPvP7zFzv7H5zl+hfVjHfe1XZ
G3SZbmUNu9jEWtuA7tDj7OUMh9hkW9JJvcF57nOFbbZjva0vmeIdT9lte9bX
+oMPzPj/n1nMP6zzRCw=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0D0oBGAcx/G/yTsbFkqJhYFiYTAgMigvKYOBUjcgSikGSgwGV+qSASnF
QKkbDJS6wUApZaHUZaIUGxn43PD0+dav//LUTswOzuRFxJzXXRRRXxrRw1aO
sYsJTlREDOnFXHODc0xx1raij/QW09xjhku2U/2gL5nlLT+5bnvSf/qNZcUR
36xm0pZfFtGoK9jOOvZxx9aiR3UnpzjABR7YxvWanuY2l3nIY9umPte7vOYJ
73lmu9Av+oYffOQvX1lYEvHFKkZ5RAPLc7pr0zW6m00cZgebbZO6X89zjKtM
sMOW1It6nxs8Y4q9tit9pO+Y5jMzHLG96wf9wywLcv/JSv4DaMJBDA==
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0DsoBWAYx+HX5s7kspBBLAwUC4PBNYOElEGhlMG1lGKg5AwGSkkGpE4x
OCUGA6UMBkopC6VkohQbGTyGr+dX/97lKxua6B5Pi4gprzUzoiInoo11HGAz
xzhcENGj5/6bCU5zk5O2RZ3UazzlDq84bzvS9/qcL7zhJ1dsjzqyIt6Yx2+W
cN2WnhtRpQvZwHJ2cMtWq/t1E0fZxVnu2Qb1sh7nBhe4zwPbqj7W27zkIe+Y
sp3pZ33NDz7wlye2V52ZHfHFYqblRVQyn/UsZQur2ctG1rgb0Z16hgNc4hgb
bet6Tu8ywRQ32W670El9y1M+8Yp9tnd9r3/4woz//2QR/wDgukEM
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0D0oBWAYhuGXzTl+F2HBIhYWxcJgIGSgkDJIlFIkSp1ioMRgoJRkQEox
UKIYKGUwUEpZKHUyUYqNlMvwdd319C5f+eB411hGREx4rYmIypyINtaxn80c
5VBhRLdO/TeXOMl1Ttjm9J5e4Sm3eM0Z26F+0BdM85afXLQ96YxkxBvz+c1S
rtqyciOqdREbWMF2bthqdZ9u4gg7Oc0d24Be0ONc4yx3uW9b1sd6k1c84D2P
bOf6Rd/wg4/85YntVSezI75Ywsy8iCqe2Qp0vS5jC2vYw0YOs4NT7Oc8R9no
blWn9DaXeMR1ttku9Z6+4ymfec1e27t+0D9MM/H/nyzmH5T9QgU=
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0D0oBWAYhuEX2/EXg8LCJBYWxcJgoI4MBqQMFKXkL0qdYqDEYKCUZEBK
MVCiSJQyGCh1ykIpmSjFRnIZvq67nt7lK+8baR/OiIgxL5mIqMyNaGUde9jM
IfYXRXTo1H9zkRNc47htVu/qZZ5wk9ecth3otL7gC2/5yQXbo87MjnhjAb9Z
xhVbIi+iWhezgRVs5bqtVnfrJg6ynVPctvXqeT3KVc5wh3u2JX2kN3jFfd7z
0Hamn/UNP/jAXx7bXnVOTsQXS5mVH1HFU1uhrtflbGENO3lua9QDuo2T7OEc
h7jCFLe4yEOuMenuUu/qO57widfssr3rtP7hC7P//5Ml/AMzQEL2
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0D0oBWAYhuFXTI6fogxYmMTColgYDAyHYkDKcAZKIYlSioESg8EpJRmQ
UgyUKBKlzmCglLJQSiZKsRGX4eu66+ldvorUaOdIVkSMecnciOr8iHY2sJ+t
HOZASUS3nv5vLnGCaxy3zeldvcITbjLDGduBvtcXfOENP7loe9TZiYg3FvGb
FUzbEgURtbqUTaxikuu2et2nWzjELk5x25bSC3qMq5zlDvdsy/pIb/CK+7zj
oe1MP+trfvCBvzy2ver8vIgvljOnMKKGp7Zi3agr2cY69vDc1qwHdQcn2c95
XtiGdVpPc4tLPOQaL7nLW57wiRn2unvX9/qHL8z7/0+W8Q+8oEPd
             "], VertexColors -> None], 
            Line3DBox[CompressedData["
1:eJwV0DEoBAAUx+GnWDgMZMGASSwsioXBwIBkoJRioNSJRCnFQMkNBkpJBqQU
AyWKRKkbDJRSFkrJRCk28t3w+n71317F4Fh3Misixl1nbkRNfkQXGznANiY5
XBLRq2czzRSnuMFJ24Le16s84zbTnLMd6Ud9xTfe8ZvLtmednRfxwSL+spJr
tkRBRJ0uZTOr2cFNW4Pu160cZQ9nuGsb0kt6guuc5x4PbCv6RG/xhod84LHt
Qr/qW37xiZGIOLW96wL9w3LmFEbU8txWrJt0FdtZzz5e2lr0iO7iNAe4yCtb
Uq/pWe4wxWNe2zb0td7nPc/4wjQ/+cg/vjE/80+W8R+Dr0O5
             "], VertexColors -> None]}, {}, {}}}, 
         VertexColors -> CompressedData["
1:eJx8m3k4Vev7xhWRMmWm0qB5Nsv0kFRolEikmVKZRRJRUShDQiVS5mhQlEJK
[encoded data, 128280 characters]
YQhxhNQ2UnYh4oj/5ofAf/PDWvu/gf/ye/J/+P3/AIGny1s=
          "], VertexNormals -> CompressedData["
1:eJxcnXdYzu3/xu2VGSJ7r6IkHiO9pWgZEQlRyqgkGnbaiVIqZYYGDUVb27ul
[encoded data, 108780 characters]
bv6LesKqOP7+P1o9DhY=
          "]], {
        DisplayFunction -> Identity, AspectRatio -> 1, Axes -> True, 
         AxesLabel -> {
           FormBox["\"x\"", TraditionalForm], 
           FormBox["\"y\"", TraditionalForm], 
           FormBox["\"z\"", TraditionalForm]}, BoxRatios -> {1, 1, 0.4}, 
         DisplayFunction :> Identity, FaceGridsStyle -> Automatic, ImageSize -> 
         Medium, Lighting -> "Neutral", 
         Method -> {"DefaultBoundaryStyle" -> Directive[
             GrayLevel[0.3]], "RotationControl" -> "Globe"}, 
         PlotRange -> {{-2, 2}, {-2, 2}, {-0.6494674552134722, 
           0.6494674552134722}}, PlotRangePadding -> {
           Scaled[0.02], 
           Scaled[0.02], 
           Scaled[0.02]}, Ticks -> {Automatic, Automatic, Automatic}}],
       "\"y szerinti parci\[AAcute]lis deriv\[AAcute]lt\""},
      "Labeled",
      DisplayFunction->(GridBox[{{
          TagBox[
           ItemBox[
            PaneBox[
             TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
              BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
           "SkipImageSizeLevel"]}, {
          ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
        GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
        AutoDelete -> False, 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
        BaselinePosition -> {1, 1}]& ),
      InterpretationFunction->(RowBox[{"Labeled", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.6717250632764707`*^9, 3.671725122265108*^9, 
  3.671725197363502*^9},
 TextAlignment->Center]
}, {2}]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.671725572464816*^9, 3.6717255747914696`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"fx", "=", 
     RowBox[{"D", "[", 
      RowBox[{"fugg", ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"fy", "=", 
     RowBox[{"D", "[", 
      RowBox[{"fugg", ",", "y"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Column", "[", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
         "parci\[AAcute]lisderiv\[AAcute]lt", "==", 
          "\"\<x szerinti parci\[AAcute]lis deriv\[AAcute]lt\>\""}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Grid", "[", 
          RowBox[{"{", 
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"Labeled", "[", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Plot3D", "[", 
                RowBox[{"fugg", ",", 
                 RowBox[{"{", 
                  RowBox[{"x", ",", 
                   RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"y", ",", 
                   RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
                 RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
                 RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", 
                 RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quality\>\""}], 
                 ",", 
                 RowBox[{"ColorFunction", "\[Rule]", 
                  RowBox[{"Function", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
                    RowBox[{
                    RowBox[{"ColorData", "[", "\"\<CherryTones\>\"", "]"}], 
                    "[", "z", "]"}]}], "]"}]}]}], "]"}], ",", 
               RowBox[{"Style", "[", 
                RowBox[{"\"\<f(x,y)\>\"", ",", "Italic", ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}], 
                 ",", "14"}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"Labeled", "[", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Plot3D", "[", 
                RowBox[{"fx", ",", 
                 RowBox[{"{", 
                  RowBox[{"x", ",", 
                   RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"y", ",", 
                   RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
                 RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
                 RowBox[{"ImageSize", "->", "Medium"}], ",", 
                 RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quality\>\""}], 
                 ",", 
                 RowBox[{"ColorFunction", "\[Rule]", 
                  RowBox[{"Function", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
                    RowBox[{
                    RowBox[{"ColorData", "[", "\"\<CherryTones\>\"", "]"}], 
                    "[", "z", "]"}]}], "]"}]}]}], "]"}], ",", 
               RowBox[{"Style", "[", 
                RowBox[{
                "\"\<\!\(\*SubsuperscriptBox[\(f\), \(x\), \('\)]\)(x,y)\>\"",
                  ",", "Italic", ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}], 
                 ",", "16"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], 
            "\[IndentingNewLine]", "}"}], "}"}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Grid", "[", 
          RowBox[{"{", 
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"Labeled", "[", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Plot3D", "[", 
                RowBox[{"fugg", ",", 
                 RowBox[{"{", 
                  RowBox[{"x", ",", 
                   RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"y", ",", 
                   RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
                 RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
                 RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", 
                 RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quality\>\""}], 
                 ",", 
                 RowBox[{"ColorFunction", "\[Rule]", 
                  RowBox[{"Function", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
                    RowBox[{
                    RowBox[{"ColorData", "[", "\"\<CherryTones\>\"", "]"}], 
                    "[", "z", "]"}]}], "]"}]}]}], "]"}], ",", 
               RowBox[{"Style", "[", 
                RowBox[{"\"\<f(x,y)\>\"", ",", "Italic", ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}]}], 
                "]"}]}], "\[IndentingNewLine]", "]"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"Labeled", "[", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Plot3D", "[", 
                RowBox[{"fy", ",", 
                 RowBox[{"{", 
                  RowBox[{"x", ",", 
                   RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"y", ",", 
                   RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
                 RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
                 RowBox[{"ImageSize", "->", "Medium"}], ",", 
                 RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quality\>\""}], 
                 ",", 
                 RowBox[{"ColorFunction", "\[Rule]", 
                  RowBox[{"Function", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
                    RowBox[{
                    RowBox[{"ColorData", "[", "\"\<CherryTones\>\"", "]"}], 
                    "[", "z", "]"}]}], "]"}]}]}], "]"}], ",", 
               RowBox[{"Style", "[", 
                RowBox[{
                "\"\<\!\(\*SubsuperscriptBox[\(f\), \(y\), \('\)]\)(x,y)\>\"",
                  ",", "Italic", ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}], 
                 ",", "14"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], 
            "\[IndentingNewLine]", "}"}], "}"}], "]"}]}], 
        "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "}"}], ",", 
      RowBox[{"Alignment", "->", "Center"}]}], "\[IndentingNewLine]", "]"}]}],
    ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"fugg", ",", 
       RowBox[{
        SuperscriptBox["x", "2"], "-", 
        SuperscriptBox["y", "2"], "+", "x", "+", "y"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<f(x,y)\>\"", ",", "Italic", ",", "Bold", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}]}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        SuperscriptBox["x", "2"], "-", 
        SuperscriptBox["y", "2"], "+", "x", "+", "y"}], ",", 
       RowBox[{"x", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"Pi", " ", "y"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["x", "3"], "-", 
          RowBox[{"2", " ", "x", " ", 
           SuperscriptBox["y", "3"]}]}], ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["x", "2"]}], "-", 
          SuperscriptBox["y", "2"]}]]}], ",", 
       RowBox[{"1", "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "^", "4"}], "+", 
          RowBox[{"y", "^", "2"}], "+", "1"}], ")"}]}], ",", " ", 
       RowBox[{"3", "-", 
        RowBox[{"2", 
         RowBox[{"y", "^", "2"}]}]}], ",", " ", 
       RowBox[{"Log", "[", 
        RowBox[{
         SuperscriptBox["x", "2"], " ", "+", "y"}], "]"}], ",", " ", 
       RowBox[{"3", 
        RowBox[{"Cos", "[", 
         RowBox[{"4", 
          RowBox[{"Sqrt", "[", 
           RowBox[{
            SuperscriptBox["x", "2"], "+", 
            SuperscriptBox["y", "2"]}], "]"}]}], "]"}]}]}], "}"}], ",", " ", 
     RowBox[{"ControlType", "\[Rule]", "PopupMenu"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "parci\[AAcute]lisderiv\[AAcute]lt", ",", 
       "\"\<x szerinti parci\[AAcute]lis deriv\[AAcute]lt\>\"", ",", 
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<parci\[AAcute]lis deriv\[AAcute]lt\>\"", ",", "Italic", ",", 
         "Bold", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}]}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<x szerinti parci\[AAcute]lis deriv\[AAcute]lt\>\"", ",", 
       "\"\<y szerinti parci\[AAcute]lis deriv\[AAcute]lt\>\""}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "Setter"}], ",", " ", 
     RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "}"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.6715271850745497`*^9, 3.671527506095788*^9}, {
   3.6715277791003346`*^9, 3.6715279012566266`*^9}, {3.6715279685094194`*^9, 
   3.6715279768573885`*^9}, {3.671528014951795*^9, 3.6715280789797535`*^9}, {
   3.6715283160838304`*^9, 3.6715283908959675`*^9}, {3.6715284674300547`*^9, 
   3.671528574742555*^9}, {3.6715291969233456`*^9, 3.6715292399069605`*^9}, {
   3.6715294280138593`*^9, 3.6715295422551847`*^9}, {3.6715296113424435`*^9, 
   3.671529623214654*^9}, {3.671529747827555*^9, 3.671529759214699*^9}, {
   3.6715302673156443`*^9, 3.6715302729753246`*^9}, {3.671530363078062*^9, 
   3.671530365378235*^9}, {3.671530610749039*^9, 3.671530632258644*^9}, {
   3.671531276052352*^9, 3.671531335680413*^9}, {3.6715316320794754`*^9, 
   3.671531758098809*^9}, {3.671531798871705*^9, 3.6715319147874794`*^9}, {
   3.6715319454656596`*^9, 3.671531953761348*^9}, {3.6715320593220983`*^9, 
   3.6715321176186314`*^9}, {3.6715321632419353`*^9, 
   3.6715321875553913`*^9}, {3.671532222787032*^9, 3.6715323153504257`*^9}, {
   3.671532348461959*^9, 3.671532407912426*^9}, {3.6715324607764273`*^9, 
   3.671532488764209*^9}, {3.671532531085597*^9, 3.671532658837264*^9}, {
   3.671532804859563*^9, 3.6715328182695293`*^9}, {3.671533349012248*^9, 
   3.671533383941676*^9}, {3.6715334540518*^9, 3.671533506090227*^9}, {
   3.6715335829961033`*^9, 3.67153359145042*^9}, {3.6715336254827414`*^9, 
   3.671533829897315*^9}, {3.671533868044361*^9, 3.671533874488145*^9}, {
   3.671533960718027*^9, 3.6715340035140767`*^9}, {3.671534067851223*^9, 
   3.6715341130274663`*^9}, 3.6715346785763283`*^9, {3.6715347188943515`*^9, 
   3.671534720468854*^9}, {3.6715347766260443`*^9, 3.671534778382551*^9}, 
   3.6715348091387167`*^9, {3.6715349900899363`*^9, 3.671534992171542*^9}, {
   3.6715360875634117`*^9, 3.671536122590772*^9}, {3.671536168180675*^9, 
   3.671536286951773*^9}, {3.671536333619717*^9, 3.6715365645474396`*^9}, {
   3.671536677685896*^9, 3.671536678965393*^9}, {3.671536742042673*^9, 
   3.671536897747325*^9}, {3.6715370769330645`*^9, 3.671537092607808*^9}, {
   3.6715375181791115`*^9, 3.671537589282917*^9}, {3.671538275725524*^9, 
   3.671538279625295*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`fugg$$ = (
     1 + $CellContext`x^4 + $CellContext`y^2)^(-1), $CellContext`parci\
\[AAcute]lisderiv\[AAcute]lt$$ = 
    "y szerinti parci\[AAcute]lis deriv\[AAcute]lt", Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`fugg$$], $CellContext`x + $CellContext`x^2 + \
$CellContext`y - $CellContext`y^2, 
       Style[
       "f(x,y)", Italic, Bold, FontFamily -> 
        "Courier New"]}, {$CellContext`x + $CellContext`x^2 + $CellContext`y - \
$CellContext`y^2, $CellContext`x Cos[Pi $CellContext`y], 
       E^(-$CellContext`x^2 - $CellContext`y^2) ($CellContext`x^3 - (
         2 $CellContext`x) $CellContext`y^3), (
        1 + $CellContext`x^4 + $CellContext`y^2)^(-1), 3 - 2 $CellContext`y^2, 
       Log[$CellContext`x^2 + $CellContext`y], 3 
       Cos[4 ($CellContext`x^2 + $CellContext`y^2)^Rational[1, 2]]}}, {{
       Hold[$CellContext`parci\[AAcute]lisderiv\[AAcute]lt$$], 
       "x szerinti parci\[AAcute]lis deriv\[AAcute]lt", 
       Style[
       "parci\[AAcute]lis deriv\[AAcute]lt", Italic, Bold, FontFamily -> 
        "Courier New"]}, {
      "x szerinti parci\[AAcute]lis deriv\[AAcute]lt", 
       "y szerinti parci\[AAcute]lis deriv\[AAcute]lt"}}}, Typeset`size$$ = {
    729., {153., 160.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`fugg$37249$$ = 
    0, $CellContext`parci\[AAcute]lisderiv\[AAcute]lt$37250$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`fugg$$ = $CellContext`x + $CellContext`x^2 + \
$CellContext`y - $CellContext`y^2, $CellContext`parci\[AAcute]lisderiv\
\[AAcute]lt$$ = "x szerinti parci\[AAcute]lis deriv\[AAcute]lt"}, 
      "ControllerVariables" :> {
        Hold[$CellContext`fugg$$, $CellContext`fugg$37249$$, 0], 
        Hold[$CellContext`parci\[AAcute]lisderiv\[AAcute]lt$$, \
$CellContext`parci\[AAcute]lisderiv\[AAcute]lt$37250$$, False]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, 
      "Body" :> ($CellContext`fx = 
        D[$CellContext`fugg$$, $CellContext`x]; $CellContext`fy = 
        D[$CellContext`fugg$$, $CellContext`y]; Column[{
          
          If[$CellContext`parci\[AAcute]lisderiv\[AAcute]lt$$ == 
           "x szerinti parci\[AAcute]lis deriv\[AAcute]lt", 
           Grid[{{
              Labeled[
               
               Plot3D[$CellContext`fugg$$, {$CellContext`x, -3, 
                 3}, {$CellContext`y, -3, 3}, Mesh -> None, ImageSize -> 
                Medium, PerformanceGoal -> "Quality", ColorFunction -> 
                Function[{$CellContext`x, $CellContext`y, $CellContext`z}, 
                  ColorData["CherryTones"][$CellContext`z]]], 
               Style["f(x,y)", Italic, FontFamily -> "Courier New", 14]], 
              Labeled[
               
               Plot3D[$CellContext`fx, {$CellContext`x, -3, 
                 3}, {$CellContext`y, -3, 3}, Mesh -> None, ImageSize -> 
                Medium, PerformanceGoal -> "Quality", ColorFunction -> 
                Function[{$CellContext`x, $CellContext`y, $CellContext`z}, 
                  ColorData["CherryTones"][$CellContext`z]]], 
               Style[
               "\!\(\*SubsuperscriptBox[\(f\), \(x\), \('\)]\)(x,y)", Italic, 
                FontFamily -> "Courier New", 16]]}}], 
           Grid[{{
              Labeled[
               
               Plot3D[$CellContext`fugg$$, {$CellContext`x, -3, 
                 3}, {$CellContext`y, -3, 3}, Mesh -> None, ImageSize -> 
                Medium, PerformanceGoal -> "Quality", ColorFunction -> 
                Function[{$CellContext`x, $CellContext`y, $CellContext`z}, 
                  ColorData["CherryTones"][$CellContext`z]]], 
               Style["f(x,y)", Italic, FontFamily -> "Courier New"]], 
              Labeled[
               
               Plot3D[$CellContext`fy, {$CellContext`x, -2, 
                 2}, {$CellContext`y, -2, 2}, Mesh -> None, ImageSize -> 
                Medium, PerformanceGoal -> "Quality", ColorFunction -> 
                Function[{$CellContext`x, $CellContext`y, $CellContext`z}, 
                  ColorData["CherryTones"][$CellContext`z]]], 
               Style[
               "\!\(\*SubsuperscriptBox[\(f\), \(y\), \('\)]\)(x,y)", Italic, 
                FontFamily -> "Courier New", 14]]}}]]}, Alignment -> Center]),
       "Specifications" :> {{{$CellContext`fugg$$, $CellContext`x + \
$CellContext`x^2 + $CellContext`y - $CellContext`y^2, 
          Style[
          "f(x,y)", Italic, Bold, FontFamily -> 
           "Courier New"]}, {$CellContext`x + $CellContext`x^2 + \
$CellContext`y - $CellContext`y^2, $CellContext`x Cos[Pi $CellContext`y], 
          E^(-$CellContext`x^2 - $CellContext`y^2) ($CellContext`x^3 - (
            2 $CellContext`x) $CellContext`y^3), (
           1 + $CellContext`x^4 + $CellContext`y^2)^(-1), 3 - 
          2 $CellContext`y^2, 
          Log[$CellContext`x^2 + $CellContext`y], 3 
          Cos[4 ($CellContext`x^2 + $CellContext`y^2)^Rational[1, 2]]}, 
         ControlType -> 
         PopupMenu}, {{$CellContext`parci\[AAcute]lisderiv\[AAcute]lt$$, 
          "x szerinti parci\[AAcute]lis deriv\[AAcute]lt", 
          Style[
          "parci\[AAcute]lis deriv\[AAcute]lt", Italic, Bold, FontFamily -> 
           "Courier New"]}, {
         "x szerinti parci\[AAcute]lis deriv\[AAcute]lt", 
          "y szerinti parci\[AAcute]lis deriv\[AAcute]lt"}, ControlType -> 
         Setter, SaveDefinitions -> True}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{780., {221., 228.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.671527330614296*^9, {3.671527486124427*^9, 3.671527506537261*^9}, {
   3.6715277873333683`*^9, 3.6715278367853527`*^9}, {3.6715279879463816`*^9, 
   3.671527999883499*^9}, {3.6715280631857214`*^9, 3.6715280805991077`*^9}, {
   3.6715285507055798`*^9, 3.6715285758242188`*^9}, {3.6715292005583243`*^9, 
   3.671529241124796*^9}, 3.671529439394165*^9, {3.6715294703597813`*^9, 
   3.671529534218726*^9}, 3.671530274527384*^9, 3.6715303665299397`*^9, 
   3.6715306161634054`*^9, {3.6715313138884935`*^9, 3.671531336690836*^9}, 
   3.6715316602793245`*^9, 3.671531760446355*^9, {3.6715318788767943`*^9, 
   3.6715319546958294`*^9}, {3.671532046411093*^9, 3.671532085965256*^9}, 
   3.671532121351015*^9, {3.6715323805287166`*^9, 3.6715324094567347`*^9}, {
   3.671532600854014*^9, 3.6715326100651383`*^9}, {3.6715326524962034`*^9, 
   3.6715326598029413`*^9}, 3.67153335546074*^9, {3.6715334737556715`*^9, 
   3.6715335070140886`*^9}, 3.67153359342037*^9, 3.6715336774032536`*^9, 
   3.671533708390973*^9, {3.671533759526312*^9, 3.671533770153765*^9}, {
   3.671533808881199*^9, 3.671533832072134*^9}, 3.6715338756939297`*^9, {
   3.671533988792308*^9, 3.671534004298307*^9}, 3.6715340840088*^9, 
   3.6715341154762955`*^9, 3.671534721838535*^9, 3.671534779662408*^9, 
   3.671534810886385*^9, 3.6715348894318013`*^9, {3.671536100870308*^9, 
   3.671536123538465*^9}, {3.6715361692650943`*^9, 3.671536188969325*^9}, 
   3.671536288476753*^9, 3.6715363705348816`*^9, 3.671536458639269*^9, 
   3.6715365656175814`*^9, 3.671536694400503*^9, 3.6715367632846236`*^9, {
   3.671536805940295*^9, 3.671536832772748*^9}, 3.671536931983755*^9, 
   3.671537547072418*^9, 3.671537589690815*^9, 3.6715382801146364`*^9, 
   3.671605367665493*^9, 3.671607559369383*^9, 3.6716083767975826`*^9, 
   3.671608426684127*^9, 3.671609890646787*^9, 3.6716138638482747`*^9, 
   3.6717028482664747`*^9, 3.67170737197736*^9},
 TextAlignment->Center]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Sz\[EAcute]ls\[ODoubleAcute]\[EAcute]rt\[EAcute]k", "Section",
 CellChangeTimes->{{3.670728241460927*^9, 3.670728245419793*^9}, {
   3.6707318979578037`*^9, 3.670731898674287*^9}, {3.670846789354923*^9, 
   3.6708468058498383`*^9}, {3.671708182395628*^9, 3.671708185043482*^9}, 
   3.671708228387508*^9},
 FontFamily->"Gill Sans MT",
 FontWeight->"Bold",
 FontColor->RGBColor[1., 1., 1.],
 Background->RGBColor[
  0.25098039215686274`, 0.5019607843137255, 0.5019607843137255]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.6717177675336256`*^9, 3.6717177694388685`*^9}}],

Cell["Sz\[UDoubleDot]ks\[EAcute]ges sz\[AAcute]m\[IAcute]t\[AAcute]sok:", \
"Text",
 CellChangeTimes->{{3.6717229824115067`*^9, 3.6717230200449724`*^9}},
 FontFamily->"Courier New",
 FontSize->16],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"m", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["x", "3"], "+", 
      SuperscriptBox["y", "2"]}], ")"}], "*", 
    SuperscriptBox["E", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["x", "2"]}], "-", 
      SuperscriptBox["y", "2"]}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"grad", "=", 
   RowBox[{"Grad", "[", 
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lehetkrit", "=", 
   RowBox[{"ToExpression", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<-0.01521\>\"", ",", "\"\<0.9945\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\"\<0.009124\>\"", ",", "\"\<-0.01521\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\"\<0.6782\>\"", ",", "\"\<0.8485\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\"\<1.226\>\"", ",", "\"\<-0.003041\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\"\<0.6661\>\"", ",", "\"\<-0.8425\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\"\<0.009124\>\"", ",", "\"\<-1.001\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\"\<-1.22\>\"", ",", "\"\<-0.003041\>\""}], "}"}]}], "}"}], 
    "]"}]}], ";", 
  RowBox[{"krit", "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}], "/.", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"FindRoot", "[", 
       RowBox[{
        RowBox[{"grad", "==", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x", ",", 
            RowBox[{"lehetkrit", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"y", ",", 
            RowBox[{"lehetkrit", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}]}], "}"}]}], 
       "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{"Length", "[", "lehetkrit", "]"}]}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"elso", "=", 
    RowBox[{"krit", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"masodik", "=", 
    RowBox[{"krit", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"harmadik", "=", 
    RowBox[{"m", "[", 
     RowBox[{"elso", ",", "masodik"}], "]"}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pontok", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"elso", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{"masodik", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{"harmadik", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "elso", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.6715293403622336`*^9, 3.6715294177722583`*^9}, 
   3.6715295150977716`*^9, {3.671529785247506*^9, 3.6715297868966722`*^9}, {
   3.6717073240903587`*^9, 3.671707358805188*^9}, {3.6717074461292796`*^9, 
   3.671707497690068*^9}, 3.6717080353186045`*^9, {3.671708097659808*^9, 
   3.671708102472006*^9}},
 Background->RGBColor[0.9, 1, 1]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Ebben", " ", "a", " ", "r\[EAcute]szben", " ", "az", " ", 
    StyleBox[
     RowBox[{"f", 
      RowBox[{"(", 
       RowBox[{"x", ",", "y"}], ")"}]}],
     FontWeight->"Bold",
     FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}], 
   StyleBox["=",
    FontWeight->"Bold",
    FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
   StyleBox[" ",
    FontWeight->"Bold",
    FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255],
    Background->GrayLevel[1]], 
   RowBox[{
    StyleBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["x", "3"], "+", 
        SuperscriptBox["y", "2"]}], ")"}], "\[CenterDot]", 
      SuperscriptBox["e", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["x", "2"]}], "-", 
        SuperscriptBox["y", "2"]}]]}],
     FontWeight->"Bold",
     FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
    "f\[UDoubleDot]ggv\[EAcute]ny", " ", 
    "sz\[EAcute]ls\[ODoubleAcute]\[EAcute]rt\[EAcute]keit", " ", 
    RowBox[{"vizsg\[AAcute]ljuk", ".", " ", "A"}], " ", 
    "f\[UDoubleDot]ggv\[EAcute]ny", " ", "a", " ", 
    "k\[ODoubleDot]vetkez\[ODoubleAcute]k\[EAcute]ppen", " ", "n\[EAcute]z", 
    " ", 
    RowBox[{"ki", ":"}]}]}]}]], "Text",
 CellChangeTimes->{{3.6717230609267187`*^9, 3.67172310347796*^9}, {
  3.6717231547571793`*^9, 3.6717232153779325`*^9}, {3.6717267855100703`*^9, 
  3.6717268108299193`*^9}, {3.671729602039736*^9, 3.67172960290333*^9}},
 TextAlignment->Center,
 FontFamily->"Courier New",
 FontSize->16],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{"m", "[", 
    RowBox[{"x", ",", "y"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<x\>\"", ",", "\"\<y\>\"", ",", "\"\<z\>\""}], "}"}]}], ",", 
   RowBox[{"BoxRatios", "\[Rule]", "1"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", " ", 
      RowBox[{
       RowBox[{"ColorData", "[", "\"\<Rainbow\>\"", "]"}], "[", "z", "]"}]}], 
     "]"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", " ", 
   RowBox[{"MeshFunctions", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", " ", "z"}], "]"}]}], 
   ",", 
   RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", " ", 
   RowBox[{"MeshStyle", "\[Rule]", "Thick"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6715294218141313`*^9, 3.671529453619892*^9}, {
  3.671529496069336*^9, 3.671529756017764*^9}, {3.6716053867382565`*^9, 
  3.671605445933945*^9}, {3.6716054875807796`*^9, 3.6716055125966787`*^9}, {
  3.6716057658762865`*^9, 3.671605785097129*^9}, {3.6716058879303737`*^9, 
  3.67160591973209*^9}}],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJxc3Xdcju3j/3GUvbeM7pCR7JUd2SFkk+wtIyMqo1JWJSlF2lORdtq7tHfJ
[encoded data, 84000 characters]
Ie/03Fs5TXLQ9071Xo/j/AuT7QdA
   "], {{
     {RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[
       GrayLevel[1], 3], 
      StyleBox[GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJxMnXfclfP/x8997nnWfe5zHyujZI+ESF8jyqahiCgtklJaKkWys7I1ZGVn
[encoded data, 40260 characters]
jg/PhIcE6wjmkX37WJsp1vbHoPyot2bKy0eOKnCn/weWtXMW
          "]], Polygon3DBox[CompressedData["
1:eJw1nXW8VNXXh+feuTM3Ju+MgGKCYncXYiAgYaAY2B1gYSGCKIiBHdiJYoKo
[encoded data, 27960 characters]

          "]], Polygon3DBox[CompressedData["
1:eJwtlVdwzmkUxl/xfV+U/P87YnYGs0GM3rsLRmeVQYSEhGWV4ULvokdCsIM7
NavLjBuMFr3N2FVWixLcMQlGWS70Fr9n3nPxzHPeU952znve5LHTUqfGOefG
gyiIhc4NiTlXHh6XiB50C5xbibEzfKiKc4dBI+zL8KsPL8cnB/TAnodfV/gI
PkdBE+zZ+DWEc/FZAVog56BrCq9ivBpURE5DFw9PYDwRNEBeiq6u1mKcDXox
9yrW6A4fY/5CkIZ+KLiErgb+H+AIManI5eAx2MaCuejPEjsLfkzcExCHfTB+
ZehG4/MnaIcuD11reB3j9eB37KuJ7QkfJ+4EaKaz49cYXolPHpiKvRC/SfBD
fB6BVjo7fs3hNfj8BRYhl6DLgm8wvgn6ErOG2N7wSeJO2R611/7o1mKbA5cy
LgEDkNejmw/fAcnMdwtuz1wdEv3a2kMXy9+UwOdOOUxCTrNcvcT3BVhge9oc
+v1oX6nIh9EthBcQlwVKE5x7H+FuiS3G5z5Ix16IXw58m/EtMAT5CLrF8HV8
ayJfhVtiawWuIP+G7h+4KeNm4B64C9KIOYYtW3vBXgv5P7g1tjbgAXI9dPfh
jow7gTugSLVAzFFsS7UX7LWRb8BtlVuQACqD2VYPu+GQcWA1cg7dXriS6hLM
RD6Dbmfg19YediD/H/Xzam3tYR/yO3TFgV9H6+1CfhP1eVnOfp7Zvu7aWZch
P7U7KrIzLEEutTvXPeo+c5Gf233ovostx8r1HuZ+yxpFgb9D3eUW5RXdZXgL
Mb/GO7cx9HlWviuAeDAD+2n8tuvNMC4Ppqn+0G2FY4yjYDryKXR/wxeZpx/z
nYPDqs79As4j90V3Bk5gHFT19as6TiYmg9g+gc+78r8N+XXU59QxLsNvsr2d
jXAWOI88L/C1rpq/hpwU82dqrj6S6HuMek1NdOnWF3ZZbnQm5U95jEOuj64s
wdewanmP5UZ5rWx1obepNxqxPtgy9L1IPekefnXRVQh9X1R/1Lurgy4a+j6m
fhZnvUfv3alOWeM7685jzfngAD77VcfWZzLgAsZ7QT3reSmh91VMCbHvIn7v
meiPYx8W+jk0V4HlX3WsGg6tZ62zvpqOf1vtBaQgf8fvD2yjwA/kQei+wiMY
jwSD8TuIblDo91Rg/VN99Lb1Gf0PwxkPA//aO/4MZzLOsLedZPOqFlQTW4mp
ZnWjmlHt5CNXR3ch9P1TfdRZT9b/8IX4AcifAr+W1vyI3B/d+8D3ffV//QP6
D2rJz/r0NzDQ9qU9Zdr/k2vnTrHerb9Lf9g3uwv9VZuQnzPPhsDXprO70R1d
s16me8y3d7Y58G8nYrX9yt6P3k7M/hX9LzetH+lf0v0rD9etv+kP0r+i/6U2
8nD7C/Tv6f/7YufRn7vD3o/eY7y9Z70HvYt8W1+99idlFQ5J
          "]]}],
       Lighting->"Neutral"]}, {}, {}, {}, {}}, {
     {GrayLevel[0], Line3DBox[CompressedData["
1:eJwl0zdMVlEYBuBPsIAFbFjAAjYsCNZFF11w0QUXXWyxLJZEF1100UUXK2AD
C9gVUAELWMAYxYYxYoMFFh0sgyyWxOePw5P33D/33OS85/tz1mwp2twjIrr4
kBqRWL+Vj5ltvY4SnvKb6V5YyQGa6SY3KWI53X0j9slGvpOTHLGU6n4Re2Q9
X8jqGbGEXdTQRUaviEXs4DIdpPeO+DogYqHcRiXvSO0TUZsWMV9uopzXJKdE
zGUDR3nGXwqcZTUtfOIQ73jFYY5QTAmlvEm3Xx7jOCc4SRnlnOI0ZzhLBW32
VMpznOcCF7nEZa5wlWtUUU0N17nBe/tvylrqqOcWt7nDXRpo5B73ecBDmmjm
Oe08SnyPVg6yinz+6KKFUtYzhyRadVfGD51ulPNIoU3XFRT6fatcQBrt7uYS
2ylkKJ3usJqdLCaTz+66jt1UmYEimc03s9HAXn6amWVyUmJtlprYzwry+GXm
nlDM2sTaOT4yy7pNvmSm9QwKyE/MKHlMYypTmEwuk5jIBMYzLjH7vpEjsxnL
GEYziiwyGckIhjOMDIYyhE77B8tBDMRVhsrC6EZ/HD0cM7wW6g7VRocHVYbq
QlWhllBBvEj9/z/8B+zWdug=
       "],
       VertexColors->None]}, 
     {Thickness[Large], Line3DBox[CompressedData["
1:eJwN0TtrE2AYhuFXSE9pta1dPSAmDp466A+w4GAqOCgiOBi0dTUFXdrUdrFi
topTAg6mdCh42JxMlgQnTQIuikaaLTUVwcl2qL2Gm+t7n/U7cS93/cGBiCio
PRTxfTTiJ7va0m/3LgeSEYNKjEUc5XlN6rj7Cmd1XwvK65r9JSuq6ofaWrTv
8chwxDFN6bLW7TNc1QvV9FF/9FcnRyJO6aZu6YlW9Fpv9EmZ8YjPbOiud5fL
7D8YscQEH7OPJaZYZJpVTrPCq+zwITf5iMOHI14xyTIvssELbDLL/7zDOBTx
lKe5wjPc4A22mGeTi9xmkT2WmJyI+MA0vzLFb5ziDi9xl7c54W/meJY5nmOB
GT7jNEvM8h3n+ZYLrPM5WyyzyTV2+J491viLdf7jF+4D83FRug==
       "],
       VertexColors->None], Line3DBox[CompressedData["
1:eJwV0TtIFWAYx+H3CF2OHrPbnJfQGlJ0qKUtIYgupoSELibSVuFQDqbYktfJ
aDrlojQ0VJsu5SVPtOkRdYi8HVsqSoIIQkEfhx8Pf174lq+09UHD/UREvFQu
GbFaFLHBFa7xK9eZ4w9u8Ce3uM3f3OE/JvMjDh6NOMUDLGYRq1nCK6zhXV7k
Y9ZxhJOa0j17lbtKFET077/DWl3WK7uNw3qujD7rj/6qPBVxVo3KPxZxm016
qmK7lyXsYyn7WcYBnuYgh/RGbzWnebW6fecTHiqM6OFhvmAF0zzDDBs4y3p+
5E3OsI7TvMEpXuMkr/MbO7jJh8zxEQuPR4wyxTFe4DzPM8s7TByJaGEe+3iO
vazka97iAruYZTd/Mc3UiYj3LOAHVvALa7nNS9xhM0/643ZWcYBXmWYL37GT
w3qmrD3GcU0oo09a1H+3JS5rD6ZeXFw=
       "],
       VertexColors->None], 
      Line3DBox[{2531, 2532, 4063, 2533, 4064, 2534, 2535, 2551, 4076, 2552, 
       2553, 2564, 4085, 2565, 2566, 2586, 4099, 2587, 2588, 2604, 2605, 2630,
        2631, 2657, 4144, 2658, 2659, 2680, 2681, 2711, 2712, 2740, 2741, 
       4201, 2774, 2804},
       VertexColors->None], Line3DBox[CompressedData["
1:eJwN0DksJGAUwPEnmhnHrqMUxYwtbEnrzFYkthGFzbqiREg0QjRCLVEZS0Kh
ENu6RyPR7dLs4SqUQiIRd4H4Ff/88l5e8eVL9Q61DuZExJge8iJGiiKO2ccj
9nOT37nBDm6xk9vs4g+2cI5fOc8F7ajbnOWuTjRgPuWZXvSqsvyIcjXqi5bd
9HJaM9rTvq51o1RBxCcliyPaOKFJreqnmux/sYcXHGduYUSGac6ygrtsYpbN
POcwkyURi0xwidX8zSoesJOv7OAbp1j5wRv4mSts5SFHecAxXnGWl8wwWeqP
mGCWFTximv+Y4n828Jn1fGQdn/iNJR8j2lnMB7t71ZrvWMNb/tUfrWld77Ve
SrQ=
       "],
       VertexColors->None], Line3DBox[CompressedData["
1:eJwV0klsTHEcwPF/jYRu09qCi7QuWhINISpx0yLqINaI2iriQBD70qpQB7tD
tRc0DrUeKC729qJUEW2dEIkuKKqL9WD5vMN3Pu/3ZjLz3ptfZtHGeRsSQgjj
vVxNDmGfbqaHsJiLNFmTNFRlzvclhdCrl2rRDV1XhU6pwGfKuUPbtVIrlOP8
cuYrT6PM0zlOYxU3Z3OkRqifeThj0bG+pYWQwD4G/kgM4bs+mb+xk338yF5+
YA/fs5sd/Mp2drGNn9nKL+zlP/bwD7v5l7+Z4vd+MYk/mcyBri+DA5jJdE7g
aM5mJgs4kWs5jSWcy6roubCOG/iWwfON6XD0vczXLF0wr2G5KlWvBvXpu8ak
OI6eHcdqiZIHhbCUKSxkKpcxzuVM4wqmcyVX6ZiO65pqNNt7L7iandzPxNQQ
zjKLZ5jNes7nQy7gZ5byE/eykyX8yGJ+4B6+5252cCfbuYvpg90z01jNOM8z
l02cwmauZiweQhH78zDH8xBzeIUL2cJSNnMfu3ia8SEhPGAqazmGr5jHPyzk
MP/1ZubwCOdwlYpUYy5muU6pWk3OnecF3dI7823eUX20b+ZH0b7xcbSHbIj2
kk+iPWVjtLd8Gu0xn0V7zefRnvMeW3mXbbzP9uhe2MEavuI1vuZ1vuFZNvAM
n7CKjTzGBzzKWh5nHbfyIrfwErfxMgtZwaWsZD4PMI9lnMGDzOY6ZnE907iQ
cS7iV884l12cyiZm8Ab7RdfNGE+y1X92gm3cxIecyXOcwf/jPbVj
       "],
       VertexColors->None], Line3DBox[CompressedData["
1:eJwN0DcvBGAYwPGXaNGiRI1EzsDIdDY2ZVMWZRA+ACESdwxCogwS0W5zNmKz
qIuERe58BpuSKKN2Br/hn1+evM/w5I1MTA1MZoUQZnVSFMJtWQhLPOUwkxzi
Adu5yyj3WM0VVnGVNVzjV2EIMX4yzm/O84cL/GVGtfbXzXWsV4c6NaZxbWhT
17rRqz7UWBxCkwrKQxjkopYVNR/zTimNmZ+4wKwSNzCbCUZ4xS5espsPnGZ+
RQj7zGOSbUyxlWmOMsMR/nGZzaX+jS08Yh8P2c97zjHNGF+Y4DN3+cQ95le6
hXm8YC7PmcMz7mhbj/a3OKNp9apHDYp7e3PTu/4BUxZCtg==
       "],
       VertexColors->None], 
      Line3DBox[{3824, 4922, 3825, 4951, 3856, 4974, 3882, 4973, 3883, 4999, 
       3911, 4998, 3912, 5017, 3933, 5016, 3934, 5037, 3960, 5036, 3958, 5035,
        3959, 5059, 3983, 5058, 3984, 5070, 4000, 5069, 4001, 5088, 4021, 
       5087, 4019, 5086, 4020, 5097, 4034, 5096, 4032, 5095, 4033, 5111, 4050,
        5110, 4048, 5109, 4049, 5117, 4058, 5116, 4057, 5115, 4055, 5114, 
       4056},
       VertexColors->None], Line3DBox[CompressedData["
1:eJwl1FdsjWEAx+G3YkT1aHsOJbGCahuj2hKCGDUiMRI7sS5QgkSLkLhRyg3a
2HuEG7R0qFslIYpGJEZbOxFXkpqJVftpXPzOk/93ztX3fe/pvbRgVn5cCGGE
jx+JIXSMD6FDUgipjGcftmdfRpnDZA5hKqexL6dzCFdyDAs5mls4k2e4hDdY
wFds1SGE1iq2e3OypqjUXsHDOqo63XPtbov6qpf2NzZrQEIIn+2B/MJB/MpM
fuNgfmcWm5nNHC3VMu3RXg1PDuEyp/Ih89jE7YyPhHCa/VnHubzDeXzPrXzH
InaNhlDFLqxkCivYmeXsxIuM8QKjLGUyyziKjRzJeo5gA1ewXccQlrMN89iW
JcxiMbNZznlsZBEbuI0feIpJsRCuM5E3mMEXnMQ/XMwU70KWslViT+cy5Wmz
CnVYtb47wqMq1SO7jPW8wAZeZCPL+ZgVfMJKPmUVn/E4b/EYb/ME7/Ak67iT
V7iDNdzFqyzmNa7jWa7lOa7neS7gQc7nIY7nVuayiBO4jWlcyX5cxXSuZoSz
mcA5fOceDeNbDucD9uR99mI1Ay8xjrv52r0v4E3ms5aTeJoTeYbduIlNnvUM
XmMarzKdJWz2ji1hPYeyjDGW8LN3dQ2fcw5rOJYn2J/57MJcjlNEb1rOojP0
mJWs0BYVaq5OtZx15iimqD45ux/1SA9VrUta4LdVPKD9mmLv40Zt0GItUqbr
Czleuephj2N3jmWG0hWx05jAfkxRZ8XZnRgY41/PJco/TOZvJvEXE/mTkfj/
/2//ADXYpl0=
       "],
       VertexColors->None], Line3DBox[CompressedData["
1:eJwl1FtMzmEcwPGnCxsVqRDhQsTMbKgcQuUwm7EiprjAGiWT44UbORUuUsRV
TnO6sFEOOXOlO6PQ5pBDwo0YNjdGyuedi+/72e95//vved//874jijblb4wK
IYzwktg/hIzoEMZwEUczl6nMYwZLmc71zOZu5vMMi9jEzexgOXvFhHCQKZyv
BSpRqep0XI/U7JpmtuiX3pl/s51/+J5d7OBffmA3P7KHnxhiQ4hSmtK1Rms1
Kj6EWk5lIxeyNfIev7KSMX1DOM1xfMgC/uBefmcFkxNCuMIhvMq5bOccvuNs
vuUsvmEOXzObbcziK87kC87gS5Yyul8I69ibJezDGk5iNdPYwALWs5AvWcEX
rOQPnmJ8oufAsXzLeezhSibFhbCNk5irPK3VCWvFLNEuXTPvZiP38Dr38gYr
eJOVvMV9vM39vMMDvMuNPMsynuMmnmcBa7mMR1jIo8xmObO4kzmRvXBkZI9M
YTFHRfbJaC5iHy5mDPP5xWdNZycz2MyhfMxhbOFwXma376yBPaxmB8v4gBvY
xDk8ydk8xWRuZ6dnl8vPzON9prKKv5yZ1XzGVWxlGi8wgVX86extYBuX8B6z
eIx1KtMgcza7nO9YxqjdeX9uvsSLKtcOLdUJ6xM5QfHqrwprcfzuN/lNT/VE
66y3sEH1Wh65Jw/rkOaba7hNW5Vp3sIVkWs13lzILM3UUPMMJnM6hzCTgzmN
SZzKQZzCgZzMAUyP/v//8w9oc5u2
       "],
       VertexColors->None], Line3DBox[CompressedData["
1:eJwl1ElsTHEcwPE/kpKupiJpkdC0Eq2G6Ka1hYPloOi0pRwcSqpmqjjooRUJ
4UJLrRFUa0nEFoJTBa04aS2lFwfrRYUeuLiQ+Ewcvu8zvzd5+c+b95/Jqd8Z
bR4TQog4zJoYQjQ5hHLu4HzGWcYmLuN+LuUB1vAyq3mFW/iMu/mF+5iUEkKu
8nTOvJqNiiVmPXLuAh+zixf1Wq/MQ4nX7OETdrOPl9ifWJtPE2vzqt5oyPyW
wxqbGsI4lapMkUgIDZzJE6zgA1ZymA0c5SGmplmHhRxgHX/yIKdlhnCPU3mf
K/iJy/mZzYyk+w6ZwSZO5Bku5Gku4ClW8CTLma40xc0pjDGVJzifx1nGTpbw
GEt5lxt5h5v4jof4i938yR5mTvJ8WMAPXMmQEUKWslWsEq1Th/eqGFWjuszb
eZExdjPOHjbxEmt4lNU8xlp2chFbuZBtXMy9nMF6TucW5nArx7OSSVzDCVzL
EZ95Hr+yiN9YzAFm8TmzOcgpvM0/7v0W/7KdH3mEnxhnH2Ps5zKe51JeYDb3
MIstHPFsK/mQuexlHg/zt72xmUMs4jVGeJi/7Kk43zHKXi7mWeaziZO5JHFe
yfpqH3+wh9/rhq6rTa2qVlRzNUfpStMB16Ry1G/vh1rM3/lSL7TNPMibuqE6
83V2qF2rzEe4SztVYW7mBq1XobmWs1nDAlYzn1XJ//8//gGdjY0r
       "],
       VertexColors->None], Line3DBox[CompressedData["
1:eJwl01tMiGEYwPG3TTPlkLLakI2NCxQuyCFsTrVJZMNM6SByLDp35QKRzY02
OVw5lHIulXK8sjltzNZmCpszFzZsptz4mYv/fnue7+L7tvf9xheUrC6OCCH0
a1FMCPujQljLc1zDRhbyPkv5jns5ODqEI5zIFcrUDrXY7eQF7uJFFvMSS3iZ
u3mFe3iVpbzGMraynG2sYKUa1aTndj0cNDSESA2YUxg7MoQiTmI9O9SpTHMP
i/iNtRw2LISzTOIZJvMJ1/MHDzAxNoR2pvMt0/iOJYwdHsJxprKB83mbW3iL
m3mThezmJnaxgDeYz07msYO5bOdGXmcO27iBrcxmL2v5kgf5k6cZF+dcOIVv
mM6IESGM1hjNVLndLFYwhZWczSrOYTXnsoaJzOVY5nEc8xnJ5RzEDH7wrmS+
5zR+5HQ+ZDwfMIEt/O1bm9nPCxzgRf5hHft4iK94mK+5lXdYxLvcxntcyBNc
wJNMYBnjWc5PziiD3RzPLk749x7+crY5fMpsPuMMNjGGdfzujmznC2axm6ls
4DHt0ChzKudpiD66g33uZK+adV41qtZ1z6qYpVU6ZV7JJE1VvXkKj3IyoxWl
r/6xL6qw/8zHeqRmndc6+yYeVp3SzIe4jAe5lLVcwgNczH1R///vv+Z4its=

       "],
       VertexColors->None], 
      Line3DBox[{4197, 2759, 4212, 2788, 4211, 2789, 4224, 2824, 2854, 4238, 
       2855, 4239, 2856, 4240, 2857, 4241, 2825, 4225, 2791, 2790, 2761, 2760,
        4198, 2758, 4197},
       VertexColors->None], Line3DBox[CompressedData["
1:eJwl0b8r53EcwPGXchkcIYOFqFNKbModVzosfl0p5Xdi54oTwzc6o76jO2Lw
s3QbAxYx+PX1FxgYDAYlJsMpx0OGZ49evfv0+bxfn5LBkfbhtIhI6HdOxOfM
iFX2coXdXGYPd/mLO5zhMbd4xG1e8Jq3zP4Y8Z/f+Mx6FuRGjLCcS6zjPjt4
yWE+Msn8rIi/rOKghvRkTrIsL+KA93pQYXZEkZq06qyZLRrVqXmMZ/zJFMd5
zjausZXr/M4NlnKKnzjNJ+/o5D92McUKnrGSS0znIj/wB698ayN32cA9FnOO
wQm+uOskb9jPFE+0qSrzNBNqV8bb8yzU3duOdah9JTWrAfVrzb77+FW1WjDX
cJ5f+IfVme//+xXRd0hc
       "],
       VertexColors->None], Line3DBox[CompressedData["
1:eJwl0asvBWAYwOEXm+JuY7OZ4xLRTHf5B9gcSTFFcSQ2l5PcA0Vhowqiyzjs
jMApqsAoCEahHIrLY8Jvz95vX/j2fk3Dqf6xgogY1VFlxHxJRI57vOQ+b/nA
Gz7ylRWlES+s5A97WVcVMc52brGN2+xilkneM8U8a8oiarVr7uQ1R7iqNZ3p
XG96V6I8Yqo6opHTbOIMmznLFqb54e4A80zyk4PMsZWXbOMmC7nBIqZ45w09
PGA3D5ngOr+9eYJfnOQTh5jjhXbUYU5zWn0qNjew/m9fdvesrE51ZW8Zrmj5
78y8xBMuMsMFHnOu5P9/fgGrKkEB
       "],
       VertexColors->None], Line3DBox[CompressedData["
1:eJwl0D0vgwEUhuHzziXRLoJE0rEGi8GqEmxSrcZikrAphg4Sv0GIod1sJpvv
GCRU4uMfqFgoCwsVSwdX0uHONZ6TJ7u0VqwkEVHWXV/EaSrimW9sssUvpnsi
Pplhko6YYnCag9zgKPc5ySsu8IXr/OM2+3sjDjnOZa1oR7u61o2+NZeJ+GGR
bZb4y3neMscGR1hnsMaEFT65scom8zziBI85zD12/FTlKxfZ4AwPOMYtbqqg
WQ1pQB82edelLvRol3M+8Iz3PEl19/wH4KE0ZQ==
       "],
       VertexColors->None], 
      Line3DBox[{4307, 3031, 4325, 3078, 4347, 3128, 4371, 3176, 4391, 3220, 
       4410, 3255, 4431, 3286, 4456, 3311, 4487, 3342, 4516, 3375, 4557, 3418,
        4595, 3462, 4638, 3509, 4681, 3556, 3603, 4720, 3604, 4721, 3605, 
       4722, 3558, 4682, 3557, 4683, 3511, 4639, 3510, 4640, 3464, 4596, 3463,
        4597, 3419, 4558, 3376, 4517, 3343, 4488, 3312, 4457, 3287, 4432, 
       3256, 4411, 3221, 4392, 3178, 3177, 3130, 3129, 3080, 3079, 3034, 3033,
        4309, 3032, 4308, 3030, 4307},
       VertexColors->None], 
      Line3DBox[{4334, 3092, 4355, 3143, 4354, 3144, 4379, 3186, 4400, 3232, 
       4399, 3233, 4419, 3264, 4440, 3295, 4465, 3320, 3352, 3353, 4525, 3384,
        3431, 3432, 3474, 4603, 3475, 4604, 3476, 4605, 3477, 4606, 3478, 
       4607, 3436, 4568, 3435, 4569, 3391, 4529, 3390, 4530, 3357, 4498, 3323,
        4468, 3298, 4443, 3267, 4422, 3237, 4402, 3194, 3192, 3151, 3149, 
       3098, 3096, 4338, 3095, 4337, 3094, 4336, 3093, 4335, 3091, 4334},
       VertexColors->None], 
      Line3DBox[{4356, 3146, 4382, 3189, 4381, 3187, 4380, 3188, 4401, 3234, 
       4420, 3265, 4441, 3296, 4466, 3321, 4495, 3354, 3385, 4526, 3386, 3387,
        3433, 4566, 3434, 4567, 3389, 4527, 3388, 4528, 3356, 4496, 3355, 
       4497, 3322, 4467, 3297, 4442, 3266, 4421, 3236, 3235, 3191, 3190, 3148,
        3147, 4357, 3145, 4356},
       VertexColors->None], 
      Line3DBox[{4852, 3747, 4884, 3782, 3808, 3809, 3842, 4937, 3843, 4938, 
       3811, 4908, 3810, 4909, 3783, 4885, 3751, 3750, 4855, 3749, 4854, 3748,
        4853, 3746, 4852},
       VertexColors->None]}, {}, {}}},
   VertexColors->CompressedData["
1:eJwUm3dYjX8YxinaKBklMkpREZJEudNWSlGiUoS2MgspChlNKg1p0JCR2d5p
[encoded data, 125700 characters]

    "],
   VertexNormals->CompressedData["
1:eJwUmnc4V+8bx41QVCqVSpFkVBRKKXRHGSFaZkXJiLSUZFZ2pGTvvffe3Pbe
[encoded data, 151260 characters]
Xv8PcMxc7w==
    "]],
  Axes->True,
  AxesLabel->{
    FormBox["\"x\"", TraditionalForm], 
    FormBox["\"y\"", TraditionalForm], 
    FormBox["\"z\"", TraditionalForm]},
  BoxRatios->1,
  DisplayFunction->Identity,
  FaceGridsStyle->Automatic,
  ImageSize->Medium,
  Lighting->"Neutral",
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0.3]], "RotationControl" -> "Globe"},
  PlotRange->{{-2, 2}, {-2, 2}, {-0.40756859823305913`, 0.4082495382308515}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{-3.346606820532599, 0.10148033983002774`, 0.48982091563413055`},
  ViewVertical->{0., 0., 1.}]], "Output",
 CellChangeTimes->{{3.671605367459347*^9, 3.6716053945687943`*^9}, 
   3.6716054474060154`*^9, 3.6716055133913174`*^9, 3.6716057862189283`*^9, {
   3.6716058917841134`*^9, 3.671605920850958*^9}, 3.6716075568840075`*^9, 
   3.6716083740446267`*^9, 3.6716084237460146`*^9, 3.671609886679945*^9, 
   3.6716138573055973`*^9, 3.6717028408011956`*^9, 3.6717073676923385`*^9},
 TextAlignment->Center,ImageCache->GraphicsData["CompressedBitmap", "\<\
[encoded data, 146280 characters]
o0f9Jg==\
\>"]]
}, {2}]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.671726844022422*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"A", " ", "fenti"}], ",", 
  RowBox[{
  "illetve", " ", "az", " ", "al\[AAcute]bbi", " ", "szintvonalas", " ", 
   "\[AAcute]br\[AAcute]b\[OAcute]l", " ", "k\[ODoubleDot]nnyed\[EAcute]n", 
   " ", "megsejthet\[ODoubleAcute]"}], ",", 
  RowBox[{
  "hol", " ", "vannak", " ", "a", " ", "f\[UDoubleDot]ggv\[EAcute]nynek", " ",
    "sz\[EAcute]ls\[ODoubleAcute]\[EAcute]rt\[EAcute]kei"}], ",", 
  "nyeregpontjai", ",", " ", 
  RowBox[{"de", " ", "ahhoz"}], ",", " ", 
  RowBox[{"hogy", " ", "pontosan", " ", "tudjuk"}], ",", " ", 
  RowBox[{
  "a", " ", "k\[ODoubleDot]vetkez\[ODoubleAcute]", " ", 
   "sz\[AAcute]m\[IAcute]t\[AAcute]sok", " ", 
   RowBox[{"kellenek", "."}]}]}]], "Text",
 CellChangeTimes->{{3.671723279237423*^9, 3.6717233459976892`*^9}, {
  3.6717268317326603`*^9, 3.6717268317917023`*^9}, {3.671726979846924*^9, 
  3.671727010504719*^9}},
 TextAlignment->Center,
 FontFamily->"Courier New",
 FontSize->16],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.6717268460998716`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ContourPlot", "[", 
  RowBox[{
   RowBox[{"m", "[", 
    RowBox[{"x", ",", "y"}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", " ", 
   RowBox[{"Contours", "\[Rule]", "30"}], ",", " ", 
   RowBox[{"ColorFunction", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", "z", "}"}], ",", " ", 
      RowBox[{
       RowBox[{"ColorData", "[", "\"\<Rainbow\>\"", "]"}], "[", "z", "]"}]}], 
     "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6716055770060277`*^9, 3.671605635049533*^9}, 
   3.6716057120397387`*^9, {3.671605801987157*^9, 3.6716058766642213`*^9}, {
   3.671605930355713*^9, 3.671605931544558*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJyEnXmcztX7/yUlS7ZUImu2FkKLJTlUsmQvbSSVUPYlEUnrp1IqUqGQREgJ
[encoded data, 121920 characters]

   "], {{
     {RGBColor[0.471412, 0.108766, 0.527016], EdgeForm[None], 
      GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFU8sug2EQnbKnf5q/O0HaWvBZ4BFaCRJJdWNvIRKXLrwAFq4VC5eFJRtv
oIQWK+KykrSpnbeQuJ3jTGIxmfnnmzlz5vL3zpRLS21mNglphywEs1zSrAx9
g4dx2IvwH+F7CvY+dB664H6+j7lNPQHpSJitQq9A5oAxmvQc+IfSZnX4mn1m
u5HZa6TvaqfZMuxz6Bb0G+TLhEHfaEI+4tJfTIrPPHIz0FnIjwnrr2ZC+EWP
uehUDeZuBn1/D5hVUsqrwfcem5UQfwB7L6iXu1j1894juRGHPnJrRf/8qBlT
9R5Y6zxoVlexeI75fPp9vo2s2UhadjMrTuT2gPd6LO6HsGtu7wQJbb4zh7nE
K/vuIq9FTuTT8Jhh1NkI4veJOq2UdnLWbXYZa27TvcAOmucS9BNkDfZsWm+M
uUDsc5DNPO5kzffCnRR9F+ybdRd9X9zHH6egGZyg/nWs+9iG7zEI68Xr5xyH
s+dtFPwGOFvOnrFv0f+drXjPy74jxt8H8dpK6dbIgbNjz3yvDJodd+lueJsl
vyvWJU7e7+821q1XgzDqfmPMJ8560G4zfidZt9lnxmfC+C/fL2+Q/fP9owd4
vjv+f/ym/zSlvIzz+QXdqosf
         "]], PolygonBox[CompressedData["
1:eJwlkD9OQmEQxAdDzZ+Q96woSITGj0aPACZiB0ewMCYEPIMUGoiRArWg5RBC
oqBWEpWKglByBGqN/tYtJm9m55vdfVs4vWi0dyTtgiTo5qQfvp2M9BmkO9CA
/1K7weuiK+gj8BxJC/Ql/JwmX/A22EOnElILfgWq8HFauob3gmettqbfHD1J
+8x345H3moFhXvre9+z/G/gb/gn5Y3DL+1HOZ1mtj96WpWVWapKf8vY+OK/j
P8Cz1IoZ37GJXpV8lmUsO6ZWw3uhdhhLZ7Hfwv7xA28QvJfdZBP5DraLZV7R
B7Fnq+hHvGnw29nMGfwpcs9uaLf8Aze4PNo=
         "]]}]}, 
     {RGBColor[0.3772928125020143, 0.11393940924096517`, 0.607694536464532], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1VU1slFUUvXRmCLZM+SbjV4EAZkiddmbeuABFCTFpSyhECGkhuHJloiT9
UysBdWGYkNDwH6O4UBYCKzcmXQlBoC3RVAVtXWCRBWSqbWIiFCrRaCGc47ld
fHmvd+7Pueeed5t77c0dfTVmdgZfAt/+pNm7KbMuGH9fgq/WrH2B2XCN7rTn
njFbWmf2U9lse97sG9z34LyFcwA+PTWyfYsvjdhEkP2lRrMR2L5Hjd3wyS+W
Xw/qJtNms7AdhP/QIrOJerMq/KZqhYMYRpHng8jsO5wf1gvDH4gZwzdap7pz
S82+RFxrzqyYNbsOv8slszbEtUaKWdtg1o/7OeR5MqN+2ffGpDAMLBD2So3w
NxA37i80KM+VOuFPPmH2G/L/ibhLsfq5D06mFwJ7vXrh71X3SQDHJO5rlpkV
kKcZ391a5RvxnN3AlMKZiRU36XlYf8pncShoDl/Hws7Z8O8U8EwtVK3OvDjp
yAsTsU3g/l5KfJGr93HvhG8v7g9Lqj9XUt+cF3vfFFT/Ebg8C7yptGbFOZAv
8s+ceyPlvRx0vxTkR3/yORyrznHYD0TiaNbrVBxPxXP1uNbejtTXF0+r79YV
6u+tSJrZ3Kz8O54y+yrIfw1mtK5BfHFun8C+E/aTQTb2TBy3Y+l1Hzipxqr9
URCmpGN+mJYWyRH1wDz0Y33ySQwvIuYB9Lke54WS5rgNOe9mpFHyM71EsyA/
p7Pi9XX08uwqze8IbNeclx9xjhehTcT+jHOiIBw3cJ4qahacCXXDvMx5NWgW
h5DnHcewFRgGM9I/9URNkDtiZo/kn7k+WyluyTFjGMs+Pl0p//OxZkGN0a9l
he7PgeN/inqnf+McKqkW31w/8txEnlux3gx5P4V8vcCZR499QW/0TkY8n4Q+
N+D+AHnW4myJtCOOZqWHj4P4Im+fw3YsqzneyIun1CL5k/MZ55293/P+OR/a
WXMctQ7jPlZWfcZwRjN+p8+vWe2Dw6j7b5Du/wt6p22+QzY6fsbyLTdF4pm1
mZ8+3Df0n9917ZH23UBQjwdxtge9ce6G/WXV5w5b77qqwPYLZj8HDVzHeSxI
S3zfxEwf1mT/LV6rq6y91o2zI6XZc+4XY70n7o95fMTPPtgPZ5FYrpjkcvHK
eTB3tVGam2zUXpr2PcP5c3bc1bRxB9G+FbPcht9exvlKTrtyV05zoQbo/38d
998CTAb75qC9WHA+ufOoH77ZJt+XY34v+N9trsnnobUf/A2/4Tue8YxlTdZO
+f+mm/5/50TQ+z7Lt5OXxk67vsg5fxuKtZOOwvevojRFvVMvd1wz3EPETw65
41hzJJZvs/fy6mpx2V+SNgedN+Imfr4taoS7hhjJPzmkFh8DGGYucQ==
         "]], PolygonBox[CompressedData["
1:eJwllElszWEUxU+rT6ixntYQUw2Pvv4roSISkSiJOYZSNlYWJFRRYlpIRaJo
RcSwMCTCxsrWEJQKMU8RikWllMRGxDz7ndzFP+9+797v3HPPvfcrXramsiZX
UhVfHt/xLL/dpJ050jHsh2XSngJpf3fpa1qaN0y61kXqy1c8QmoqlG5gT+sp
NSTSOb5a7NWAXsU3tp/0mrttfLml0i382/C/x/+X8/Ii6RP2VJLfxXeCHN3I
XZ8vdeA8Dv9V/JtT0uhB0gUw33WUdoBxD//9JGxj3MFuxf8SPtf55makZ8Ol
drDae0hZ/M9LpD/Ut4B8T7B3pyO3Od3E/zcdtZvzNM6VfaQU8afw/+T8oCxq
tyaPsCuKpTPcr+fOZOy6vtKVTpGjBfwmanwK1kfi/xFfih5txE/kfIjzrySw
rbm1d4xjHePY3b2kakVNtdRTzn9vwMvrLC0m348hkc/xJ+F+nvrfok8K/xL8
s8CcQ3yKmEXUsod8dcSuRK9LxH7JBpcWYr679/2l+anI6dy7iK+A3wri/1BL
CxwyXaW1/DeG3rxG3w/oO4pzDbNxenDkco4X8DmVDq3N0Vyng6eeoen0UaGZ
tfN/M/BNGh69b6XeV/Br4fw2P2aqnHwbMtFbz8h67BruZIwHv1XuP/ne9QhO
bdxdw38j8T/EX409MxvcrMnsbGhm7YyxGv/v0qh1Muf6JGpybe7hZ+ILCiOX
MY3tGfYsWyNrtTOJu+Vo2kgvmwtjF6zBviQ0s3bu0ZGB8KCG5i6xU96tTZmo
vZo7V7hbC/7tvIhZj10xgLnMiZ2YMiBm2rNtjayVd8y75hnxrDQmgXWT+3uT
mHlz+Y3+z7C/ZaP37o9n9wAx24lfCMfD2IeSsL3j3vVjcG7ODQ5HB8bOe/c9
E5fxP4f/1lTEjC+KN8Nvxxc4TjB2WdjembqymEnPyzliHsFlFf/1LogeuVdP
S4KrMfeCdbEwZncdOc8m0VP3diPnJuyq4tgNz3AHZvlxNrCt4dKhvEdFcddv
gt8G98i9MgfP7vxMaOUZ8ixdTgJ7C3iN6dgp75bfIL9FDel4m8x5JVgHk4i1
hm34/wPqf9km
         "]]}]}, 
     {RGBColor[0.3052160541865061, 0.12802242561774058`, 0.6746089220909962], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNVW1sTGkUPv0wPoa2Op2O3rSoztztTGc2skR8delusm19B2UT7I+NhJDY
DWU3Sk1/IFiJEJFgN6vRkiAi8b+VEEGCiqgmi6WEP0WwiNrOPo/nleyPN+e9
9573nOc853nPLf/xp4Xrss3sHFYO1iXPbEGuWcsos28rzbJG4DlidrLArBUr
G8/HC/R+hWl/Bv7bcfivoFkawZqxyvC+ZDhiDjNb6pvtxPfGKrNnAbPAED03
IdcPiLGqzGyDr/ONsCUhxd5UaNbm8u7LA6Z8syfwCSFmE/weYr8ZtiGgPXPv
xtkBnG1G7Gfw78X7eVlmsxNYiFEP+yiqdw9CivVymJ43ItY9+G+CXYyadwDj
LPhnsE6ixrfgZEKJ2XPss1HL/ArVNwf+aeTqRvwtyN1bZDYamFcmzb4ABz/D
xxB/b0j2TtxsK85cRq75sJ1hs/vY/4L9BsStQaz1sLuHak+O3icU/x/Yv+G/
DbVWR2V5tgk+F/LFBXkg9835wjctqncPw+KPPH7CGRQG1h6OCmcRbDfw9aO/
t2EvhtWz+kr1rT6g3s3z1ecH+L5okHAQw5Ey+R+FnRyVz1TY78eop+ztfZeX
/oscz1vRr2UVit0QkRZYD3GvSamne3D2aEJa+D2hXrKna/G9GP67RqKGLGmX
Gr6CmNPLzV4BdzXsoULlvA5sJwqkaeq5D+fOYJ3CmcueerS6VHwx/6+odT1W
HurcVSheyS/7Ql1QD/1ZivEiV+/WVUhbvVFphT5fQTtfA8dr4JkBuxf6qAWG
35KK57mY13zt48VmV319uwKbCai/5LoOZ94gzkzEaUeMww5/m9vzzqQdD+/A
03BPfRoBux+cnR0irs7HxN0Y2Ltx+fNcGpzGEaclJZ7IF+/4pGJpugd4coCh
E1z8ib7keOKgAXjeJFQ7OSAn5J/YiJ3+xP9NqbRUU6rv9CNvrId11cBmUrpX
HVWaMyfc3OkZK/wrR0lL5JB62uZJS9RUq+svMddVKlcG97J7rHRIPbKX7Gmu
J61T8z1xzSnqkHpMYz8XGFpgW51+tvji/JjTz5ejzaYMNpsIbg6Bk8V4/wTa
eRrUnvOFGhvIlz7+8KRnzipyfCBPPTno6q2CTk7naq4Sa11A8XnmhdMbuWLf
OGd5x6udzg04l5TLh7NqclJ9fotc32GfQfyBkLBkHB5qhs/sETETL/vHO8C7
0OHpe5/TGLltd7VzJhJLB/RTWynMtcjzISnuF0aUmxhuphSbc/nz/KVd4Kuf
kaD8uCcf5IDz6qmb+ZzN7BdnCmsl/8Tzb5E4mgG8XWWabReBuTesGdfsazaQ
L3I11/1H6Mc5TQ75rSslvxsp5T/gMPDeZNy9WxKRNvhPI95ih7krIe3xv8H5
Qp1QL+wle0otU9fkhzEZm8/cP46Kl+2+7kGfmyPlMeHlf+bx59ntqxdt7p/I
O3Hc6Xz5OP0zbgHLxyLdx/ExzZuzLhdnQ5vjjVh4lho75nrK9+S4MajzF2La
d8Y0c5mzP6m87D/vI2O2/+8/3erw/AejmkKy
         "]], PolygonBox[CompressedData["
1:eJwtlUtslGUUhl86tSq2DNrODP3TAkPan3Y6VUJQLuKl3looQgHLRiUGISaS
AAFEYqG0iWC8kBiNYSEhsNNE48adi5YEQ4CFlgQKRPFSiKyUCIoRbH3enC6+
zPn+75zzvuc6xQ1b12ypkLSJU8nZ9YD0Mr9TaqSnW6TBNun5rLSHbyON0iv1
0rS7pB/vk95IpR7OyinSSe6rkfs5Y8jXsGkrS99g34+8Hvtu3q7mpBemS7+h
8zb3h/PSkrulZVXSUw3SiSSwRqdJf5ek6ej38jbBOQn+nRnSx7y13i8NtEvn
WqXbNSbMexKYxr4+VbrSJD2Jz66qwDDW99hsQ/dd7EeQb4HRUxl4/yA/NDN0
bfNfnfRaY3BPqqUz8D3M/RpvLdwX4u8ZclQB/jFiWl2QjtZKw9ngvKkhOJv7
WnJWDb/B9uD+EXiL4fosZxz9D7kfLkVOnJurnCvE/j7+xsFfDKcH4TavmXjh
v5P348ivYt8I9kzOWF34tG/HuAh5oi5y65gc2zj+JrKBaewnitKNe6QvyMGF
2fgF/wd899MUK5Ez1O+PyrB5Dv3b5eC6PyP9i3wKnfrq4GAurfnIlb+d5m1X
Gr1if4uox0Xuc6ujXgfhIvz/Cf5nxiD+Pbz3KfppL3JHQ/CvQufzWdhP1ts1
u4A83By5cE+6NxfkI1eun2t/DIzj2YhpRxo+7Ms1/JTarClELF/ir5Naftce
vZGhf4r47oJTN/EeQGcf9atJopbmeIhZGWoO7q7JHXK9G4wBYv0FvD7k7cTX
Af5790ovzZFWpOHbM+HZ8Ey4v6yzoy16yr21DZ08+dqbBLbtX8R+WUtwf4dv
6+C+sRy1z4P3NVwupWFvnRP0z2AaveQZHsD/UBK5t/9cU8yYe9/5/DaJGXbu
O/F50PVN4s0596yZg7mYcx9vZ0txN8cR5Lqm8G0O5jLGvXZq7Ihfkc+3Br79
jSJ/UA6sy2AO5yJm27tHHsnHDHmWXEPX8jHe91XEjGWw3dwe9fGMvI7812Q8
A7x/wn1Wc+SmwJmN3FuMWv1OTOuQewuRS/dYF7ntLEcv3KRHupCHydlgNmK4
ie9Sbewnf/NbRzF0vZO8m4baAts61jWmsb9C5yLzNb8+sD1Tnq2eQuxa7xDv
Eu8Q7xLPxFJ8b5wRtp7Rx7kvL0WuHXM3cmUSve+YMsj9SeTC7+7dVZP19E4e
I79vpdGbzql36/40dqV38iHvg8l9aR9H8PVmGrVxzn/OxY7wrvB/xCjyT7mY
bXPYju6Sprh7Bh5F/h/Jcu5f
         "]]}]}, 
     {RGBColor[0.2744521944095348, 0.18299372885841167`, 0.7279877779723309], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFVUtIlGEUvflIUzNxZhobNHWc/2/MIYvCnlSgloFgBY5mm6ioVS8iC/Nd
9iRaJLiIrECXRUHUJuhlD6uNQfTYmI8koha1KKLnOZ0/Wgz38373v/fcc8/9
LNy8a/3OBDM7hV8ifu0hs+5ks4Df7HuO2elMs7OzzZpgyyab9SYhLsWseprZ
hUT5dqTL/z6gu7qo2cKI2aE0s8Wwh12cUeQt7tu8/FXIOR81LuNcj/t3yHEC
8UOIq09TPeZ8VSBb4JhVxMzCiJuH8zHc78W5a5IwXEo1+4yzPxe18XcANnGq
WeMU1AfOhah1FbUeof6WmGIHUfdhSP7nxcJEbK3w3cw3y0DMeZ/uGDMYEsaK
DOHsz1f9n4hZF1SdCvR+O6S+2B/jyhHfCXsyU5gYlxSTvw/fPkP+b/C3gO99
wHQOOTfNMLuPPFeQ58ts/XgegO83zm+Qy0rMhsH3ML5dBo6OAsNF5P4Izkcy
Ve8D/JVR1V0F21+s+D7YjWGzM8jZgpw1jvKXAXNNFvKnq3/2Q7xrg5oncRLf
dvAbB8/bYB94OJmDcyD/f/mN6PxvJjcS5D8SlHbqcH/H0UznwgYi4u0W8qWg
zmP4Kc66IrMf+O4XsI2n61vy2QBsPsRtgE1O0Zn9s2f2TtxDebrrAFcvoaXL
wLei0GzWTLMF8EdhO8H5BPLWI08YNS4Aw3lg6A3pvAL4fbnSWXau8lN/nD31
QO1S3yUxzbsV+V67wu5HT9cc7chW3P9yNXfOn/Wferx8xeyPI2c3ZpuFPUmC
rwmx/T7VWIk8Y37xR/22l6jXDsT88GsXbjnSxTFv7i+8ftk365d5c6l2NPdm
9HcvIJzrkeceMKzGt5XAUB7V7jRmm911xAO5KZ2pWfzG2ZcsDRBraVjxc2Dj
rmZXC9uC3yjOza5ys2f2W4S+UtFXA2a7FL114bwkop4mPD7Jx4jXS0+26k0F
5ipgm4xZ10JHYwFpoYY8+DQT7uXDPOEilz/9wkzs+316Xz6Bv16fNM5dj0el
rTbk2T1DtfbALiuUjrjfxMu6zMVdIGZ+v7xQ+7c1R3MIe+8SdcreiY/vF9+x
fEdvKmO4R9GgdngDMBzydEg9cv95f9vRG8Q619F7PKjdWAO8B0OaI/d4PCDO
+NbyfSr33qgnrjS2HXz0xKTVLvgyQuKHPFEjxMAeBjw9UL/kiZjpJy/kp91V
33wjiGmR9843uuKU37zBTMcjqs+dOO7NkJz4/cJMDR509c4coF5c6aJ4uv63
jKb/fyNou9D3HxiD9Y0=
         "]], PolygonBox[CompressedData["
1:eJwtlF1sDWYYx59WVVVbS885Dif1UU6PQxshkdXodDHMEgkhWh93YuNmQzbf
au2qttnFLiYhkXWdkF0RkkUvfY8iEm7EDUWJLHOzC4xSv3/+5+JNnvd9vv//
53lr129e8XVxRHzBKeE8T0UMHxFxenjE35mImXURk0dFfMMZTEbMKtx/qYp4
MzZiey6iszzit6KIbciHpkf8hK6L+2AiYnE+YlhlxM+8vcJ+Iv7dJPqKGH8h
t5HjV3KVlEWsTEfs436I+2ZiHsT/eTbij2ERCWKsJVYHMS6Uub4rGdvItod7
N/cN6JtKnOPepIhrvJ1B11oaUU1vH2VdbwX1deM7l3tXud/mIH9OjhHkEiiX
se+oNx6qoR15PfFPkv9D4iVqIj7B56D8sW9G/pK3FunIuWVcxBCYDZKrlJhL
8q5BtZxCf57aVk+MeED8U8S8S72ppPsXHn+i6yvUr57V+xAYL6xwzhMJ51Tu
p+DZia6L8wz5Nm8D6BJZ46OY7cR6krK9bA43RGyqcT3KcRX9uTpz/SN8vRjr
I7mfMwS3x8n5aYVrUC1Hp3sWxH8tta/i7Tr+C0bDeTWxxT/99YDfAfjtJUdJ
sTHaSO6utHUD+LQInxpju5uY7cROcW8sNebCfus4Y6uY/9DL7pzj9eO/B7m1
kF8cthD7bMZcS78LXXOtsdaMzK81xsJaM5ik/uPT4KPSnOTTnknphd934itn
7jQfl8h/DXx7i11jH/K0Mb7f5H4D24fYLPvAMzYP/TLevkf/iHrakM/XGTvt
1AXk/inkKHd995ErM+5XPVYgFzGDD6u8Yy/B42N6+Bfb/WDYhLwWn7Jyz1wr
8tuEd1HxFzYYA2GheOLiXWE+tT8Xyb8q7VlVjHX4t5Hj/0rvRyP1/56xrWZK
s7WzEE89qldxLu7lP4XcyayxEmYp5D7s/ysyRteRV+c9u9qvH8j9bb39xaG4
fD3Js6/5bKTWIyljOxt+pk5gVpL+C2Qj2705Y7uUGMeqfSRrXm6NZ6czttdO
3+a+cbzjif89Gc+cZk8c7EiYA3GhmTjBbKzIuR/V14K8Ju+/SfH0dy7C/7Mq
96fZ2NDgv049P056R8S3ML1DvKj3bolDcdmRMxba0YGUORCWwkTYLE+b6+0j
2cO8e1JvmpHD9HouY6y109rtvYX/VT0Ku+Ya8yfO31JLfoKxVM2X4HrGZMfW
n70o7z9bf7dmTrO3L+e/RTP8mHjzs5b1J7xD157zLutNuvcGfeqU
         "]], 
        PolygonBox[{{4890, 4889, 4726, 2422, 8751}, {8025, 2015, 8024, 4889, 
         4890}}]}]}, 
     {RGBColor[0.24995229729890078`, 0.2412379654272769, 0.774628125025269], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtVU1MlFcUvSiVyYhCGUZmvqg4zMzHfOOA0JgaNak/8b+JsSA6YPAvkaYL
gaYxxogtjbVV2boYMGpU0Piz0UVNWo1GE6PpyjZ14x9xYQRl0aa1aNX2nJy3
mLz3vXffveeee++ZxPaups4JZjaI30T8+sJmo5PNDmLN1ZjtxGHpdLOWlFkB
Z4Wc2dOIWVOR2f0ZZrux/wvverNm82CztthsX8ysYorZq7DsPsf7Cx+YXfHM
tvlmd+G/GeutqNkv2Oexv5k224X9+0qzNQmzRXi3tdrsAe464b8VayXuCjg/
i/Oi2WbnEGscsfoRpxzxpuHu2+laLwHX6lJh6EOCD3G/Max8lgHriqlmR+uA
J6a7k4HZWFS2rRmzA8CyH79DePNmltkQfH6M+GcQe2IIeVaZJXB/eKpwbI+b
fYG3P8PHI/h7PEW8nIPfp9jvQJwe2D0MKzfueZ7Hm+6k2SSse5FTe0oYNqUU
mxjKYL/IfS/G+p+vs0Hk+Cv8nwC3CWBL4ncc58PAm6lSroO4n419J/bl4OZ7
7D8kFxnxSD6jeLfZ8Uy+L5cpB+Jnnsx3AJyNIreDwPZlXPk9KZZNPXpiFG/q
sH4EX4PwOQIMz4rFM3P9Hd8X4ecF/DQgp5JyxZ6DHlsJ/B5yCeGscbK4XpfW
2gVubjnuMjNRC+zPY1+AnwKw/gn7l1HVmRjYb8fh6zt8zwdX/8RUH/bLuNuv
QO7/Oj+NaeX3rkzfbRn5GsPbH6rUx3mcNSCv0/AdQm9+lhP+dTnlxzoS31Cg
HnucVO48Y60LUdW5B/0fQQ0WsF8clj9Cqs2SlGZvKdaFCZ3/DZsNGfX2AWC5
HtIcEUd/VnU/5qkHaU9/3XHddyDOHl/2P8Jmfo34/jStWWXdKmBTHxfW9Yi5
LCce3oG/gZzTAfhodvPIuewAjihiXUPv3PDUtxXI721E83Akq9yYYxT+n6Q1
S1/B36O0+nlGVPVm3Vvh514g3fg6Ju7I4TDW2pnijfxRg9jPAeKPxPV2c7Xq
wXwbUZ/7rsfYa/t9zQvnhlpG7aIuPE/K55lAPcSav46J+5tlmqtNvuaI87QR
9iW4a8P6JiuuyBlniLrDefgtECfk5r2veJ8gbjinuNRO+qC+0e+dlHRgeVZ6
Qd1YWCMtpDZyfvKwGYBNK9ZV06RlJbXAVq3cyUEkpbcnUIefPGFpTqlujEsc
8yo1R9SwvMul3Zf+MtYWX7VhjYbTmmlyyPrd9qRF1MUXKc0WtZ/6wjy2xaUT
1AvWjHxwHomj4HLvx7o8ox6vr5EuML+5wPVNTD09jrMxcHEPffwS6waHrcmX
He23+tI49vzRrP5L2Nvs8aactKMZazIiHeurkJ6yP6966lHu73jSQeLJVqnm
fY4rahoxkIOemHqSvTkUUV9Qd6krrDXvej3xzzrwzQKnh22+eCbfd12tWXNi
IrYW3J8OxN2pQHXud/1Z5+aRvcbZZr4t+J+qjStGkFFvEW8v/PwP0V0h0A==

         "]], PolygonBox[CompressedData["
1:eJwtlV1o1nUUx89007Glru153Baz3Nuz53l8pi5BMYNeUCs0sy33irYZFRH5
ciHerLRMW3lbsE1wlJuw8kYvJMIoFKLRlQZeuTa8iJgaLLJ3pc+X7//iD+f3
nHO+55zveXnq9+5v37cgIt7kK+Z7pSbipyUR03xnchH9j0Q8URTxGMoB5B3N
EW3lEaUVEe2FiN7GiMVlEfvwbayKGHso4g0AT+PTkIoY5N3Ney0+2/GtrIv4
PYxXhbw7Y3/Z9yG34XMGeQifr/A9D+Zy3sPYlBHv43xEPViT+P9JrvlqYi+M
mC+N2FQfMVKw7Rw2o8hHMvavoJ7ObMQeanimxD6r8F2RjjiG7XG+GfKbQL+w
1DH+I3ZPYv8W9lnsZ5tt+yExbjdFvETMn4vNUQfyevKfKDJHL2Dbic0ItqN8
3chfg5cG/wTvx3lvzboW5bMFeTznWF3oJ5BPtWKz1DFaayO+h5NFCxxjA7Fu
8l5W5Bqmifce9bYXOb9jyHeI8QdyJfV/QP738TlUbs676N38qogLy9yTw9R7
FJ+hMnMm7lSjsIR5C/nJ5K2YE9i/Qw92FLumH8l3GzkMo1vMfLwI/09jfzKx
V647C9ZpHp7Hdhf1jZUYYxCsmUbXfoN8B3jnqs2HetAHd78m9Tz3QMSzy8Fq
sXwSTnajG69yrMvUVEysniZzr3reZd66kn48CP6Jas+oZk+cXCafnoxnWfz0
Ig/UWq+Z3ovck3Us5dCL/HZSv2q4Rv3XV5irOeKvJn5rwbLslXs3mD8Qaxyb
dcTewjzfQDcIxhWwRvOev895/8N7NuFDPVKvUnWeNflMgbeR7/0y57AB+a+V
Ed+UeofWgj+U8S6oB0+hb2s29j3wNpPbRXryRYnncQzu1jR79pXDWfi+V2Vb
vbUbr9UZWz6vI19K5lk5nMY2XefdVo7KNfuwa9MNaEHuz7j2KWIMaL6o9+pS
3xzdnlu8z4E3g08LfO9K+iH7TuSOgm+P5n8nuf5d43rE/wi+6ZTnT/06Sm2f
5XzLxKFm626Nb8VHxPwE+y+T+sXZEXTdWe+KeqhdymWdi3K8k/cNVH3K8fpK
YwhLnIm7rqxnS/drLu0boFugmfmOWKsbvOua5zXIfU3WyUa3VT1QL8SpuNWM
iC/t/Lf43wbzt3LPsG7L/kZzIf0B5E9z3h3tTAH8V6np5hLfkM3kejbnXui3
SeSOJucqzGHqPV7tWyl87Up7xtxrZq+kvbPaXWH8QrxTeXOvHvxLrIO1xtOM
HKj1DmoXdVPug7Wpwb1RjzYiX0rumWp8NOX/COFLn0r5RooP9Ui9ejnJRzOx
B/l/2TLvQw==
         "]]}]}, 
     {RGBColor[0.2465624189624076, 0.3105122300606426, 0.7985591975415592], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFVVtsVFUU3ULL2NJphz5sZ+I4nen0TmfmjggfJlj8wKho8AEtIFCKnVa+
TKh+8GFQiVojNCpJEeQlak1AjUZNMPFBMWpiiEExqZIIlJmOUUymQkFQJDFx
LdZJ/LjZ9569z9p7r7POvvH+wa4NM8zsEJ6ZeL5pMvtuttlaz+wYbKbG7GsE
vFxr9iKeZxG0O2P2Et7/aTH793qzXwJmRyvk5/qjwJnwtPc07PqY/PMTevg+
D3ZN0mxvNXLBfo9caZdrB/APIuYy8M/7iAmZTcPuT5udDJq9BtsfNqurNMvD
LgP+hevMSo1mu5BvJzC7gflBg1kT1s/C/16l1vndC98+vAdSZqvwPoycK2H7
bzTbjv4eaTY70yr84XqzLfXqqQ/+zyLCmodcHzr8ItbOgbcAeJgFzFvgexcx
V4AxhL4uIdc4coyj7quo/2n0lUWOEuLXobY8vheg30Kb2acOvyupOlhPFdaG
kHtgltnzsHeCn9sRvx77lraDU+ToBj8bq8QPsa626Mz2ZNQbe5xCjQdi4nYu
9mXA3U+I+RMxo9g/DZxXwN8wnjLet8K+AP9kQHvKSfUyBXsooh4/hn0GNeVR
22qsL09IIwtdvYcREyS/IeEP4b0U0fodiJ8Prt7H+2G3VnYx+xB/CXqYwHMS
PP6K/JkOnBFqOo6Yo+jlgXbppwc4p1HnzCrFXZiterYC5zFw2oiYwTbVxNru
A6+L5pidqhWPi28w+xGxM3B2m8KqtzYiLOqbem0Oy1LL3Md89P9QqzoHgdvs
dFhoVK30L4mL48mgco1kxOl22CtB6YFn/AnyPQj/QvRyolV3Kh+TThfXqL77
0W8Pvpf68l+sUU2VKcVUpNQbezTg/dYqbsfwPgA9dCJ2CnnfgQ6LyHsgLX5Z
P32LkuJ+CzjOO577YHtQRxH50sB+K61Y4vXGpI21MWmXuhuFfyQkXMax76Lr
fTql9fOw8QbdKd6tJ4FlOI8VOWiW1mnlVFAYxB3xdJ7lJvXN/sn5GjenVnvi
jhyOxcQdY/pgszWaL5wt5IKclMFNZ1z1Z9DXeFR39G5o4W/4juDc/2pVXTwn
1nqP08m5pGYJ7xTv/82+7v4JYOTC0tZe9FIXEeZd2HfrTYrhnOjypVvq92Ba
HL2d1vw75ursjkvPy2E31utu5xLiZlVI5+QntP4m9v6c1L79qGHbHPFIvvyQ
ZhA1zbVtjt/JRmmVmqWfcbzbl6tV57jrk/3mfGmEd5Kcc3ZwHnBOT7mZUMTa
QyHhM2/B4XM2/94m3VK/39YpjjGca9T+APgvtKvGKPgZjaoX9vRHRrnTuE8d
HdIPdcQ5sdLxcMbTGRc86WaFW389LQ29kdZco28H7OdOA7wfrJf1cE+Pp39f
L+xXWbPnUOsucL/Ok34ehr23TuucKU/Atwn834ZzqPbV20fQ9VnX7xg08Lib
P08Bbxli5gJnCXpdkNDeTtgvELcBdRzJ/X8G5H+np1n2qqc7xBjicrYxFzlk
f7xvvCf8T150s2iiXfO05OY09cy7wX8hNct/Vyqs+VUGx9kG9fZlVvgVAemb
GuQMvDbrolo/Dlty/8eBsP5/xNyM+brHlz53+9L9tf9eVHGM5391c4tq4cz7
DxrAVGs=
         "]], PolygonBox[CompressedData["
1:eJwtlVtslGUQhsdSKCBstXTtdtN1u+2y293uohg1QuMFRkAhKBaKQAGhRG5M
Wo3hghTFQxVplIsipdCCUhJQozEavZCT8RQPMYIgXFAKbY1RLAaqoFhj4vM6
/8Uk8//fN6d33pkv0dRS31xgZhuRQqQxadY90awHWYk+mjXrC5nNutEsX252
MWzWjkEn510ps00VZuHr/N8z6Pmc2Q/oRUVm09CHsT+OfcsYs1OVZpfSZv2T
zDpuMBtTZnY4avbOWLP7i81aa80K0m4/lztj0TdMMRuYbDaIHMiYzUuY/Tse
2wlmi9BXBPnedr1Zc5XZS+TUhv1S/O8ifgPnD6N/g/+JfO/M+VkD0oV+DJ/X
8L2N/JrI/wFyeg79AGDsj5utQoaoZYQaL1B/UdqxUY733WS2DP9rxnn9S9E/
pJ63qOdrcnw1YraAfD4nt1by3VACxmmvTT7ep7ZDYT8vxqYJ/+0lruufbJOl
ZtXIANgNIr8iF5Db+XcHsoU7w9w9jM1svvfEzD4jlywx+jnrQzLo33FnFfqj
5HR3oWP6JrW/jvShz+BfD/rZlNt+y/0vyG1gqtkVcs2B15PgNS7tvf2/R9T/
Zdh912JzDtvVYPiYOabCtq7Ka1c9qnUONicDftx5s9l8/N8S4DODuzHuTC7w
evo56814bnXIPvSWarPSoN8LOd9OzMvoS8jvRfR1Zd7LUeKf5P7TEdeVz/d8
/xPw+Sf8nan0nqq3A+TTGPeeqXdvE/8jerk76vW8gs1ObO9Jem7i2Cz0a5Xe
7wfxtyniMRTLmJeNfI9PuD/duZX+7OV8/QSvaQ3n06n5K/TfwS9V4zOgWVCN
j1Prwbj7PoqPv4j1BzmcCnkP12H/Z6Wfyf8HUZ8BYSP7J7CfGeAvjO9CfyPj
syQf2XLnjOpZC4fbKpyT4qZmannSbWTbyPfP+AtFvT9t/DsH/kfyftZMvR+j
HwnyVQ/Uiy7yfZlYW5FR8p1GzLMh74F2yzZkc8jnbQmx6pOOvXbKu+SyP+Nc
VYxfqr3H6rU4345+NO+xdUe74mrEfQ3Szzqw38GdEe5uIecO9M4gH/U0wf33
pvhu0Aw/S/1P1Tp2z/PvU/T5CeeKelRG7udTznXNWG/Md5h2mWboNXL9JOif
dtohsJpe6vWIA+JCQ965ofji1q6sY6Odo93TE/D9DP72oKdrfHf2EGMk5ztL
u0s7TbttWcpnVTOuWV8b8F89EHdWIz8W+c7U7rSoxxIGwkKcE/e68XcJ30Ol
Pg/aeY9gWxF2bIRhp3ZN2LHcSg0nqOV0zGf5KpgNgeWKuGOvnnZknSPiima+
mNgLc95LceqhnO8U7RZx6vxU54D6pxwXVznHxXXxRbO7O+PYaIbWl/ibInxU
42n07ry/VbK5l/uLcj4P4nM9eoZ6r0zyNyld7pgKW71JNZxdzPqu0Z3fZJ/0
t049PBj1mlW7dk4vtn9HfDcIT3FdGAgL7czhpL+JehsKye84WF3OOdbKWb09
FvMzYSysFyf8bdOMaFZeqPDZFD6tfC+P+65SjwbpVVeJc1WcqyX2f9bFNi0=

         "]], 
        PolygonBox[{{7185, 7184, 5930, 2017, 8029}, {5173, 5172, 9824, 3023, 
         9826}, {5576, 3023, 9825, 9811, 9812}, {8417, 8416, 6497, 1295, 
         8418}, {9049, 9048, 9821, 3021, 5574}, {8427, 1453, 5170, 8425, 
         8426}, {8031, 2018, 5931, 7184, 7185}, {9820, 3021, 9819, 5155, 
         5156}, {8749, 2421, 8748, 7180, 7181}, {9812, 9811, 9823, 3022, 
         5575}, {5573, 3020, 9818, 9048, 9049}, {7181, 7180, 5929, 2016, 
         8026}}]}]}, 
     {RGBColor[0.2470887574493974, 0.3783622421204211, 0.8142337274645413], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlFtslFUUhbcFCiptpTNl2mGG6c1pZ9rGmIgXfDJGNBoJNN4oQypt4ovh
osZgEaKioiU+gSAPAqVA9IEEgqhR4gUN6puGaIyKmDZtuDSxIqImJuq3sv6H
k73/8++zz1p7r31aBtb1rq2KiN2sGazJfETTrIhNTRGj3RGrros43ROxNRex
mf+fFiJewj98VcRd6YhcQ8RcEnzNuW3FiAvXEos9QY5Hq/3v1taIjVdHLMau
aItYx94pzj2fc8xz2J3XRHTOieibGfFN3vv6/yVx64l/gJx3z4+4Z25EdUfE
geSuV7BfNDincr9TDw5wjrI/Sp6L5PkFv689IgPmYykv+TPJ82yT+b6ccy7l
PISdJudr5JzKRozlnVO5d7E24g8Rf4J/W+oiTnZFdHea4y1wvA2cPeAcL5pT
Ta155cCwn7tGOFckfgPxNxJ/tmiO4ro1wbATeyDhovs/ajXOg+w9Ac8dnF3b
6jqK+xniZ8FnCfdWYVfRp0VwnwfOPvyb8GvwJ7PmJX5vliJ+qAEP9jM43AuX
zdgSNRkD7/KWiHLiv03MoXprQFoQvwvVvntTUkNh3J/UfAQ7lva9uv+FjGtx
Hv8T9LRmHvHYTupwmVyX0NrNCyPumA0H6lc9276wLgPHesTZTY4rxP47x9+Z
Jvv38f8h7n6Vmuwow61szOJxrs19kQY/yLoPrzdGDFRbo9LnwaL1vCTtGglz
D/FPw3cpfPfA/Sn8Cv7t/N9etl8puAfqRYXersAfxn8YO0R8PzH3k3tX0fdo
Vh5P4oexn4PnCBhaOTuWNZ47wfAY+I7C63LZMyZsw+TYLl2ijTewjYmWRjlX
x3oQ/+z1EV0p92g39+9N+qs+/9jsnP+Q8xlirhDzq+rUZl97fxGTIuZDeP1E
7VZS46qMOYjLtnrrXvofwb9I/PvET2HrctbbsoJnVXr+Cr4DRXNcBI818DpG
/Bnij6Q8873w+LloLe3NuwfiO4F/Pus5fQT8v5c8R5ew/6GPU2ijkbsmOXsD
mlg831oXhn72NxSMuTnnfqgvfdjTeWvrW+w4OI6DZ6zZPMX3+wURb5VckyEw
frfAGkiTb5A1wdkBcUz0Jt0tLVgPGeI7Ej3/1u3zyvNxjzUn7b0Lp+luz77e
AL0F6qP62au6k78dLOfA9B7Ynky0IN1L83vyrtW+vN9lvc9TDcYnnPUpv0HS
/ESbe6meDpKz0mntSYOKU/xq+jgj4T7dYX0pp94dYRSX1dhSyn3X+6c5FJZy
wfOnmuhb+pMOa7OeZ51VPfRm613SLKuX6ulK9rfkPIcvYo9nnf9PeA/W+86/
WzzHR5N5P5nMy0Jq9UeL57Q2Z00rRnPTn7x742n3Q33R7EoH0kNXp+dNeZSv
Pe36V4p+y1Vzzc++kmui2ug9k8ak6f8BTVcNKg==
         "]], PolygonBox[CompressedData["
1:eJwtlFtslFUUhTeFVq6tzNSWDjP0NplpZ2i8xJp4SyBENKgEiLxgCXSQR62G
GLRKVNREGp+oKAkBSoHggwnEoIZ410B8k6DGYBEd0louCUXx9qR+y/U/7Pzr
/Ofsfdbee+3TXhlY80RNRGzBZmDDhYipORFD4IOpiK3YM7P4Yrd0RNyFDYI3
sP8se3u7I1aCz86L2Ac+m4+YnB1xuS5iNMf5poib53p9gHVza8TJGyJuZ11t
jBjn3zvTIlpqIybAF9nvmhnxFjEeyduEP2S/mok4DL9Lc+xzCPxoFzHBw3Dq
A2/Gf5z4/xCjuQXfJJ+5JPlmwTkol35sE/zLXc5FOS0Gf4b/Ntbv4z/Zhn8J
P6w9HdGBbVkQ8QF7R+HzJXy+XwiH6c5/D/kPc/Y1cSHGTvBQyvHfxec88c61
GevfVu56sN1c/6BGJe6vJ+baWtfjOfhvbo54DJvF/9nYRz0Rj8/nPP7VTuqY
9vkl5Ny7KOLjZF/5THaak7ipR9/BdRoxIuOclNtgi2ujGqn3tyb1Uc9vA//S
5lpsb6AH+P3d7top5zF8rxW9vg7/LvivZr+KkJ5kfxX4UMq5iKO4jrAehMI6
zrxI/NPw+xqrZOkHdiztfksDk9Snyv3HwQfwzze6RqrVMf79wN61xb5bnKfA
b3f7ftXnSLdzUC7ShLRxtZTUjjNT4N5G91I9vUy8kaReym8/uD/l2kmvv5PP
QvQ4UGM+WfBXN5FrjWNUqN8+NHypzjOgWbjC/vobXd+d7Pd0OJZiPk3sqaLv
Ug1Vy3upwT3YQ/T8YWxHwVqX5ofANZxZTr4PYPczW/c1ufeqbwP9GS14dnX+
IHh/wqeH83dytq9g7srhFNyuYq+DlxLjDvSzvMm4DvsmZ00tSdZnWPflPWua
uXXg0YzjqUcDC+yjs/IRt/qs89XM/8v6AvXuZT3GejX96Gv1rOjfevCrWetF
Ob8CvlAwd/FV7T/pcf+k8U/B453WutaajV/p2bx66+cl6ne9ZK2o3yX0uqrV
d+nOleA3knqpR6PoZ1mj35oKZ7Zzf6nVWpZ+NoEryfvy/5tI/34q+G2TBs6D
f87YXxqWlqVxaV2cfpPWc563jficBs8oupbqaS34XMG5qmc/gq9k3B/tTy96
JpTbLuIfJf7nZc+m3qwy61zeXPTmTuC/K3kvlaNy/Tbpj2JOZBxTscXhIusX
suamHJSLNCgt6s3Q23GC+9MzPcPdac+sZldvlN6qfvlnPdOa7T/bfFY+f4HX
5M1dNTlBvN0pc19BDl+Qy1jas6P894pr0VoXX2k132ztqIcN3HN31r3Um7uW
Wm8rO5Y0+hTaeC/ju8ThOHgk537pDt21o8Nn5fN82bYiqedhuL2ctRbUM72V
i/KeddVYtf4PPOESwA==
         "]], 
        PolygonBox[{{4898, 4897, 4744, 2441, 8793}, {8794, 2441, 4744, 7264, 
         7265}, {6500, 6499, 8414, 2226, 6253}, {6666, 6665, 5987, 2067, 
         8121}, {8789, 2440, 8788, 7228, 7229}, {7960, 1989, 7959, 5343, 
         5344}, {6846, 6845, 8427, 2231, 6259}, {6255, 2228, 8418, 6499, 
         6500}, {6258, 2230, 8422, 6845, 6846}, {5344, 5343, 8017, 2011, 
         8018}}]}]}, 
     {RGBColor[
      0.25832818258372087`, 0.44231611106140256`, 0.8073219042318149], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlFtslGUQhqd4KOxCa7bbdne72z/dXZZ/y181nqISTdTGciUHi0lBYwDT
CIlUKdEETSh6YYDIBUZNNCpyqEYvhQsThETQa0PQitz0sDU1GgmEKKEcfCbv
d7GZ75+deb933pn5ejaNrN22wMw+4ncbv9oSsyXNZsf4mKmZ3b3YrIG90mP2
4iKzjRmzzfxWEXtv2ezVKrkADPeazXeYnSa3PQJrmdmpO8z+KpgNJmYPpc2e
W2p2IW/2BP6r4D1M/Bly+4tmbwTMTeQOgrnhdrM5zudazJq4d5LvC21mA01m
B0vCcsxxsHvhMUpMvazY2WbFvwTu4J1mWxJxdXy/5wZ538PhQ+4+zHeO8/vU
+AW4P+J7FF478/K/A0aN3K3ocRHOK7Oq60/q+oP4fWA2Cop1Pt80Cbu1Wbr8
0mVWhsMndbOf6+KzEcwzWfl/5f+T5D8N3+05OHNvP+cRzuuWCq+f2AqavJ4y
O4AGj5M/QO4wde2P6RU1n4DjSFU1ZfA/2C1uDxBfxD9Kbhe2tahaqp30Mejj
vOYKqsv75nq5v6XdbFckPttymoUdKWm0sqjeeQ+P1KTpUex3xK8FJ1VQnY6z
Hm49VeWt6JDWrpdr7DV4LdeoMY7Uo0k0+SGSJju4d3WP+roGmwLzfuJjMCez
OueIPU8vFqL5BHZvrDneh31rudln5O4h/tOS5sfnqEGdQ+hwAz7ryuKwAuxC
pPk8D7e/lwnf73wG/+/gr8aOB5yvOe92XHB2oec93DeEPtMVes8+rAKnCR3e
LCpmjJizYWa8P7s75b+E/pcT5TrGrQ5xaynqDr9rgPNsSXPVwD4WZsC5z9bU
lxIaz6c1h67vGP99TO0HM9LUtc1Hqs1r7I400z4PFbgcX6RZcn6X68p1jIm8
+NyE10yi/Rr2PkfSx/vg3+5/GftkVnPr8+tz73M+0aV3ZT5wc7v5LnHdTz9e
g38n/N8tq197sVMVaXKiT3PsvI5khDPYqjfqerv27D10u4jmZ3kv/ulVPV7X
HNxPllXbKazFehumE+2Yz/ahgubbzzsjYV9PC9/fNcf3e8ZCv7znXWGnptE+
AfNfdmN5LF+yWLvxQU7v2LPo8Eh46z6nd18mqv0amPPt2lnf3e4we7/BeU2s
XMf4tlNcxrlrqiC/v5FTNd01if2vqhiPfSXU4m9JW6L3aIa8obJmsoyW61PS
yrW4GebNd+Ltonr3FD28Dw5Xwb+SaG99f78qaSd9N3+KhOWYPu+38jov4K4t
3HUAzbdinwcnyz5uiNVL72mjEvqXVv2jAdPfwqMZzYDv7mxFXC/1ar59zrux
cV7cvZ9em9e4Hf/hmjAP1VTfuVBjX+hRH/osLOiNSmNfCNz24K+3ye9v2Onw
Jjuv/wHXrgdL
         "]], PolygonBox[CompressedData["
1:eJwtlEtsDFAUhk+rqg9tpZ122jGTMdMxWoYFiWdI0NCNlLJAIxJlwcKrQhOS
BokmhGBBIhG0VRJLrLzjkdgKKh5JW21VCEFDKanvz5nFSc699/zn/Oe/597Y
ph312zPNbCOWhd2Lm93MNTuGPxAxO1BhdpaAonFm/axbOD/H+fkxZvvDZstl
GWaPiKnFXxE0y8xhL9tsIet3k8zeYvuiZs1YK3tHsPv4D7A75LuR6zVU60yx
2WnW9WPNqkvMqjifRa5t1Evid8EhBy73OK8NmLUlzf7mm60pMrsOtiPq9es4
HyVfIbXWgd1IzqGYWQ2Ya/CdLUzKbEHYuTZx3gR+FTEZ+M8LqQ/+FvkCOc4n
J2T2cqJZnPiHcBgpM/tX5vnF8fMU6pWSN9sxwgYTZrvyqIu4LayHqDk8Hgx7
3/Hng39M73tY99PLlqBjlaMRboMV3vtr6tWBP1aFDgVoxt4vcp8qcewMcr4H
X0zOM+S7A98S/G/Vfle6s+/4v+FXMM5zHCVXT8TX5cS30//hsPvS6BB+a9Lz
SeN2/D8B10saS+uVUecmjkXEXyJmJN9zqpbuXHc/ibMY1hZyLaRJOfwDUddS
mr5A2/KoaylNR9HmDzkaJ3hO5e4o9tnUzGh2etlryvP5m0f8j5jftfBdaDdI
voYs1+Ag2taEPTaFXj1gO5OupXocodbHkM/WVfSZW252vMpnU/VO4FeS72ma
7yO06E56LnE4yV0MU38x+Do4NsJ19WSvLz2XEP8E/DLWe4mvpP9E0LVTz/Wc
LU3PpzA9cLmdfh96k3fx4wnHKsdDztdWO1dxHmT9Kc1fb+Rrqb8xvbUPvMFB
rIEeAgWOEba30mdxveYPPy/ks64Z1Czmp9d6k1upvyzgs/WP++ig9670e5Am
mcS3BF1r8V9FrVcVrofOpd3uhOOl6c6EY3SmmDfEfpvqXLrBV7G+EPH70h9z
Hv8L588KPaa5xE2+euiBf2/Ksf3kfI//AsxzrJ8+BrC+iP9l4qBe9Gfo79C8
6i1Ux/0v0IwvYlYuJ71XzYfegv4E/Q3i8BUuc+L+nn9iKfq9GvH3LL6d+H1J
f5vai9HvNDSYijVim6M+Y7oL3ckG8BVRnx3pEcLvS9+PaqjWxYjnVr5L+Kmg
96o/a6X+rpD/fXqf+os7U/7X6Q1dwZ8edK7KN5N6/wFpQuAu
         "]], PolygonBox[CompressedData["
1:eJwtkD1LglEYhm+k7INaNPMlNN9XHF7U/oU09kIEVgSROUSf9EGQi1uiQZRD
Q0PY4A/J/oHYUNSW1dYQNHsdjsPFOef5uJ/7PF7paPkwJGkWRsGJSnE4jcCE
lE1LsZT0PCbNcEbIRaEe5z0tbfjSHjX7sAtNeu7ovUhIFQjoeaN3KWV1jf7j
nNQCJyMdT0rXxEK8AwysoVGEVfgi1offmDSOxmvSzjYetpixyaw/T7oxftFJ
ZKyu0W8SOyeWJvbEuwMeflzI4fl/Slrw7Rwzbx1WwlKZ/Ce1V+yiy7wevCRt
v9GZR+8M3Vv0d/hTH195dpHlnoMybEMJAjR8zgoURqQDR3p3pQ/X7svsrQ4P
/KPG+UP8G06oW6S+Q19jmG/z30u81YZ7NfttEbsnV6VmAGA7Pi0=
         "]]}]}, 
     {RGBColor[0.2723430711530265, 0.5021257777424679, 0.7927022493430987], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlFlolGcUho8Ra1wmLpPfMZPon4wz42Q64o3FO3GjLgjRRNCrihJRI9g2
paW1YATvrHvrpRdCSYpeK6ISMYqgAVGCG1VQE+IuMSo2iUufw/td/Jxvzrxn
e89St+n7xh1lZrafbzTf+VqzeJRZc9EsnzFrHWdWQO6OzV6MNbtcb/Zqttn9
iWavkZcrzfrBz+L/npzZXzjZkjJrADe9nP/Rb6ww2zTZ7CiBDhTwlyAeMpk0
WzjGLALTFfzcnGm2I2t2YrzZT1nZu5+T5DUd/LfgG9A115jtIdZ6cvsB3Enw
rcjektmfxHqM7Avv8SnZuO3TKrPD+CkjVlfarBr9FeoyMBlyGqCuOuTjGWYV
6Pfx/oLNMPi/we4k7ndfmbUQ9wX1/wv+ObId/Cv0/yDz+NpObuVgB+vIkfe1
auoln55JZlOR5cQeDR/n8Nk6VTzPxmdNLB6cj5Fpsr1dLX5df5dc+okxmdwu
gE+H/KuQQ5XKcwv+uyPl0wF2PX3ppPZl/F/MiAfn8vME8bwOm7NJ9X0+PD/K
m63Edin5fwNmHBx2gPsPfj8hh5BrS9IvxeeTtPx7nJaU+uX9rwP3M/g+/NWG
d5zVLPhMuM++pOK/C74/hnwuxOI5TR0PyOkZNe5El85qDn0eP2SF/4MedfE7
RdynYHOB/yz6dnIbhb+DxHkf5srn60mVeGiK1SfHu90pvtO8R8DcmqG6+vDR
FuY/hb4zp9lrSKkP9QnZnKtV7l7TmaRqHJhjdqggzEFkI18F7ybkghC3PqNZ
KwQ/zcTq5vfXyBO1mtXracXzuIuwfRlm7xMzkog0Sy0lff6eFKlWnzfv671Q
Sz9+jue1i8ORYnisrchfarS/W4kzl+8YfXpbko3bOh9DkWzdx6ysen0F2968
8vTdWkN+CWppw0cuoTlzXrrhYtcUdgG5nFir6O+yGu2h2x7B9vewX21wUj1F
HHq8O1W6FW/Zp96wm76jnRlxdh55KKlePySXeSnNzG+xboTzVkacX2PpfaY2
F3U3fqSOwZLqfYc8HmbG/R0IPl1XCFx5f1aHGhv8npFbD3m+wd+2jDicAL48
JXw9+IGiMINF3UfHON8+H17jBvTbs9qJq3O0h943v8d+O/wOfKTXHSXtT3tJ
s+/8OrcrAp9lkbhzDv1W+S3wmzBSqfvl72Heewvi1fu5mN/z6FFTTvfI56ci
0q33mZ9Pvo05YdbmdKP9Fl2sVO7eU8/be+M98rs+Ldb7NtyMRJqB9rxy9r56
7BuhLr+Rvre+vxexuxR2eRtxLdItWkIt/wPVb//u
         "]], PolygonBox[CompressedData["
1:eJwtlO1r1WUYxy+Ppaae42rn7DfPNn8787d1dnAmqWQIoSWpEUjT0jcZiQ6n
pj2+KbDAF9osjch/YcZ8OQopmRQR1EACQS2CHtSlPUBQWm7T+nz5/l5ccN/3
9fC9ru913Vdtx4H+/YWI2IfchcyrRnwwM2Imj3M4T7dEbOO+5u6IljRicElE
rSniEG872yM+K0dMzLDNN20Rr7ZGnJ4TkSCfY/9+c0QBfSv3xVnEdwsjvkUW
oUuRdcR4YlbE6tkRq8C6hu5xsP6cj30SMYLNbHz/wGa4A6yeiGXzfR+vRDwM
3irk2XrEdmR3np/yL6J/CcxTcyMGShGXsLuC/2tzndNlzqtbHE9vNWxfzu1T
6al/bd21KqZiP9eIeJ5YbfdGXCBehn4v+hT9LvSFqu0n8f+PWgYTcyFOfu+M
2NNFnrPM8SDnYXx24HsSzGe6Izanrl8xe/B9LOdnBvGGif0OeCW4+hj9R+gH
lhhb9o+0OwfdhX+rbExhi/89iTGEdQ82W7Ddwn3FvIiVyCj5vEL9I3n9n9C7
UsVcqn71fl3ZvrJ/Gt8j+BxGhpCjSCX1rGgepuD2B/BHwb5OzivA39/q+2/c
38T2LD5NeT1jnLcm7veT1LyRehbk+OLrPHjVivkrFSP6685ZuaimvZlz0l01
PUqux7HpLRrjNr5TmbH09h66JHMu4vcY9V5ixi4iG/DdiExXzLfmZ6DhGlXr
YXI7glxY6Hq/10zeH7GU/PuQB4m9HDnTZbw6eMe41+qebfX4F3xvgj9N7reR
fzPnqFzHpKffX6bunXqov9UFZg3pI85S5N26YytH5Xqq0/aa7xHOL4C/L++R
ejWJzYlCPnP0s7fLs6N8GpxfT90r9Ui9eigxP7qrl8P8mTtw2w3mKLqTHf6L
6pl6l2b+S/pT+qvnqs5Fb53ofuwx15rpnzh/1efeHeQ/jXP+us9n/bHT9GN9
u2dB8bUL9Of098SZuBMH4kKci/tCxfbaJ8sWIegeQH5ezH9GNufzXiL+iVbv
BPVW/F3u8A6Sr2JsAHsTvsWi7f/qBb/Ns62d90XZMyF/7YwXM8+MZuc6df+K
3GnxbGhGLtLvK1X3Vj2e6HCOwhMfQe63Ms/CVuJ/Ct8H8v8ozqfQ7078F/QH
zsLHffTw/ALbyFY7S39Xb83ojtbNlXo+xPl4s/lXT6uZd6Z259vEHUI+zPup
/mk3qmbVLs764W6y7N2iHaPds7NhPNW/q2GOxfVVZAL5O3Mtyu9GZgxhaSY1
m1N5PO3MsW73RHji/Km6Z0yzphr+ycypuNXO1+5/K/EuEB9v0K//AXp28s0=

         "]], PolygonBox[CompressedData["
1:eJwtkb1KA0EUhU8ESYwmiIhLzMZhN+CuEojoQ9iKvoGFWhlIpZU/jfbWvoog
go1lChO18CcGNBLXaKv4DbPFx7k7d+ecu3eDzcb67oikGRiFU186gUsjeTnp
Ct2IpWJBOvSko1A6hgiaY9I8+hlICYj+dVaa5U6nJN3BIJIeJqQ/ArrUr2Do
z0Gbfi8j+dTDRalVlGLORF4GnsrSI5SM8y2jeTLOJqWXmrTF87Zxntb7l4x7
svrUvSrn8JX6JugC797gExvna/3t3Hb+Kr4Jd0Ny3yPn84Hm2cU4rHC+DD/k
npNf99we7D4OqAvsZ43+Pt5vZOyhAfdC381oZ91J83Oe87TecbrH5pS0Oi1d
8BM6FekW2hW3B7uP55r77i76nc4wROv0luAfJotJIQ==
         "]]}]}, 
     {RGBColor[0.2926359394077524, 0.5525614360067391, 0.760647808629054], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFVm9MlXUUPpgKXFIE7uXCvRfe++e93Be4GBnO0Qftz1bzg9ZQs2zo1nRa
ZA7YWm3xpXS7pYS0tbX0U2S2Uvvg2soS/9SW2iCLZdasRgSkBcOMyKHV8/S8
Wx/enZdzz+/8nvM855yXxGM7Wp6aY2Yn8NyCpyBs1oqXrY5ZZ6VZO348GzKb
k5TfYD9vMOsqgR/2+Xqz8FyzKcR/gmfzfLNczKyj1GwVwovw/h3ybOBZ5H4Z
8WuKzbphpxPyD0XN3iuU/0WExZDns3wzB/YZ1+w1YHgatiSjd/oaq81u5gEX
sH1QZlaN93PEA3z7mMsz21KHZyEwwd4M6WwP/JerzB5G/BjO7Ssw2wP8ETzz
cf7IInAAOxswiy7Ub1HgSKOuYeDsxe/f3KraIvj9EOI2I6YJtXWilh/jZh/6
eG7H+1XU2Ao8l4H9DtzdjpjFiA0gz7Iis8OIyyLmJ+BogH0kLd/OFHjGfQ7u
HUSt+wtVF/kZhD8O/3n4zwSFLeEIH99r8T4AfZ4rEY4cOHkD926HfTsg7eh/
HzgyC1AjcO0vEFc9qKUP/OQQvwnx48h/J3K2OTrH89RqZ1KYdsFOZs1eRz0T
sBaSLtRnZUx51uOe+/DeN8+sJihe55WIt9vC4oTc9CdUL+tOxnTvs6wFuUaR
8yTOXqhA7+DcpjrxzzzU6jh46wCfH8NerFAd7eiT0TJpTc1Z6z8B/f2kq1q2
w25F/HLEz0UtE8XKR90Xe8JALKdrpe8KxOTBP4we+B0YDlSojmZo3ejXEkH8
0rj8/P2Gq3tL0QPjeL7F2Zlys18z6qVR2CVx9eDyCulKfQfAw7Ey9VgncrS5
4v4ocWbEyYVKcUAueN8rKWH/Gnmu1apfHgDeJVlhIJbxiGaBM7EyqH67CH5+
Qc4pvH8P31+ueP7TVR9Qx42wSU/9POX3dVOxZqHf538WZ5uS4pO8RnC+A/f2
oI6fs+KN/O31hGcWv6/Lah4eygo38Zci/3S55m0Y/vWOsP0QlAbUYgK1tybV
b30RzS53CDl6tF7YNtSLY3JOvs77s3Mq+H8NGeRIAc9VxKRhp131wB+wu1La
b9xz14OK2QI8Gz35m4H3WFLa9aa0N7knA2HNX7e/W6gR+555OeucN/ZoLqzZ
3BvTriSXV6BDXli78VJUO4p9ucfvD+bjndw15GEZYs/6u4Iz1AhsM8B5LauZ
Z/6XEHM8rntXIEd/XHPA+WANrOUKONzGGcac3I0cQ34fct+M1ehb4LjqD2pB
TYagexd0L0YvVeIpQsykI9zEzx3/G+56Fe+PA8MXuOMo9sBh+MZS6pORlL4r
5K0QMd0xxe+Ab52nvfdCUnNCLSdh7/KE8x5PcYxfjX5fEJKfdUR9PGsR83dG
u5H7klyTk924601/fjmvU3XCQ1zNQeE8UKWdxd01gpicp73B/cGZ4ezcH1Q9
jOe5GuS9hO/XGvDQktYMchbZC9SS+r2D+F68vws7UqVe4N6Ku8ozCJ7eiuje
e2PS9tN89fCM/52tDqkX2ZMucJU7irmBuWnxVHsEMV2O9hh3Oc/w7Bn4zoWk
Kb/z3Fn/7WF+330/Neeu4TytTWsXsAbuYO507oSDwP6V3wNfwq7iveB/NWxb
WLpQz4/iqv26q/8PiGE3cp8AjnL4tyH2QV9rfsPZQ8RPDTnbnPG8kGZqwJ+r
/AZpQU24CzgLS8PSibwdxLnxSvVqwteNO4L1POFjY2/+C9tFWUs=
         "]], PolygonBox[CompressedData["
1:eJwtlX1olXUUx8+2mnvJdK/X3bvtuffuudzHeWdqi6g/eoXCP2SyzTJjK0IR
GxmbEQUNihQsNTMIIv1DsjTE6o8ICm1Jm+QmM1+gKCLQWUtjMS1ZY5V9Dt8H
7g/Oec453/N+buapZzs3F5vZC7ybeMO1Zl/zzjabneP1BWZ3l5r1l5gtS5hN
wydQfA9+O/yVpPiPisxWYrcja7a+NJZDt2XMLpaZ7UbneNpsT4tZEnon7y3o
5Yv4hvzTm82+BetG3uzCLWY92BdjfzRnll5oNlBp9iX0dJvZeJVZM/4+rzG7
gxi2lCjGQWIrqjP7F9kB8B5qJJZWsw23mu3DxzH8X8JmaoHZXvij8K8nFKvn
0BuZXWuV/3vgp6HXLTFrR7+n3OwqufSHysUxNyCvSChWt7lUIB8wZmL7duKf
aBHt35YhO06NfiG+H+AnyXWmXvT3vAn48RT5kksv/p6spidZ2Tu+1+ZQUrkN
VJg1hLJx2z3U6DpYs6Fy24XN39CPEFPFQvXnMeq3gPoMUsss355G9ijf7qyU
zhr4i01ma4uU4wR0Nfg38PUOQ1IFXRzXdzs5r2wUhmPZfH7IqqjvKlPNHqd2
r9CTl3kji81O8DYW1M+rxDxLLe6PZLufbx3UMoNujvzXgV8E/zM60/j7aZ5Z
N7IzOfnzHM5B30UP1xPrEWJ8jny3hKKT9Gcz9EYwKudL/zz6t2c1y94P79WF
gmrnMXvsmUj+vN9Z6L/AmKvQzPjsXMlL12v+O/SL8X74DLbj63xKsX9DvE3I
ugLF7piTDWbPh6ql19xr342PSvi9+FsD3cF7zcSvhj6bU+yew6pIM+GzEeBz
FF9l7MPHxP8hMc6Dni2oll7T+9DPZ5WLxzyAbVckbPfZGanm++P9GsLXM6Gw
fL++IN/FcT98xsvQHWuTbJAdPAU9F2o+8vj7DHmyTtj1zOBX2F7LKF6f6TMp
9cR74zW9Dl2d0S1I8a2EfXqiVbPrO+67PhQIyzEbwN4ZyZfPqM/qaJti+QQf
feBtI9995arhMPPZnZPM+U7o5WnF/xI2J7H9oEm3px/8sTrZuG4X/X6D+e3N
atZ95nugdy2RzGteiv3aeH+8p5Ps5oON2k/XN/D+LGjWfOZuS8in+/YbuIJY
Hq7VbjqGY+Ui7YbviN++exfpdvkNLVCrV7Pqn+e4FfpYTr3zHnrvTwa6v2/j
rw9/mxKi/dswsvL4XnlP/2N+V7OTHbwRZCd4QahaeE3SfutqdGs8p4Pk90C8
r76Dvos74vvp+DPYW0Lz7/gp+NE64XkND1DrMM7vXexz6C5NqDa+Q0uRzdUq
H8/fb4XPhM+G7/j71OK7Bt3PEXaqHvxDTcJ2H6fwtTtSL3wm34T+tUaz4vwK
8P6I76VjTEEHgXbVY/4R7K0t6of/H2yD/qdevnzfxpjfy3ntk+/zb9CnmyVz
vPFm6QTx/fbZnyooV8+5hXhOJ1Vb/887nNZ/ot9aj3EI+n9h5Bw2
         "]], 
        PolygonBox[{{8133, 8132, 8363, 2193, 6193}, {7287, 7286, 5992, 2070, 
         8126}, {7890, 7889, 5313, 1568, 7891}, {7177, 7176, 5925, 4250, 
         11502}, {7965, 1991, 7964, 5314, 5315}, {8020, 2012, 5926, 7176, 
         7177}, {8248, 8247, 8380, 2204, 8381}, {9332, 2732, 5050, 8247, 
         8248}, {10318, 3339, 5991, 7286, 7287}, {9241, 2674, 9242, 8064, 
         8065}, {10693, 10692, 5943, 883, 10690}, {10574, 917, 5994, 10575, 
         10576}}]}]}, 
     {RGBColor[0.31552932529769795`, 0.5979371464176543, 0.7231135044532566], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlW1o1XUUx8/c2nZvm5t3z92n3TvX3Xa3cCvDXi2EDI2GhFuUWCNn0KMp
mQoSVG4F9kD1qhcF5VR6kTOMaMwNy6bTsOVTRS+iCJZpW0rYEqr1+XJ+L/78
zj3/8zvne77n/L8388jm+55eZGbv8xTyDDaZpaNmuzkPJc0+uMFs+Caz27Jm
OyNmnS1m2xNmG4rNerAfS5vNlJg9ybmBmD3EPMRZljP7nsSra83Gms223GjW
THxXo9ndpWZTHWbHM2YZ8pyPm82mPecOcl9oMOumbiW+ZXWe/wnsJVXu/7nd
7HniHiZ+iForyLmGnM8uNXuF+A7sK8RPgztWBOZ66mfd3kpfz/D7LuyV+L4B
2y6wrQRbI3emqJXlfJu4ODH9bWYT5H+XnEcD9obFZht5t416H8HVds5Fbe4v
4OwlV0W52TrOrfRSDeYJuNxb7/cWWsEa/GP4L8DRfupOp8hR4zxMgGE5/fZU
mF2Eq1HsD6n1FLXm6L+LmAgc3N/sGJ7DX8TvTvx9aedGGN5jqP8yi5/KzP7h
XMt5MOqzKajzfjPEf8Yseon9Cyy/5Nyexz4HpgPEnE05JmHT/NfSwzD5ezjP
xH2OmudVnj7uPph3zgYWO483U7Mf+x127HjcY/4m/7Fqv5sk98Y2j/8Onj5P
OPaXwHiC+BQxc+T+L/QSwb+APcC+FTHHUZ7D2GOcL6R9vg2aS9ZjFLsp5nYh
vqGw54PgPAXnv5N/X9J3SLt0R6PzrXlrZuNhh7XLQy3u0zxLEj6LPDmPYW/D
HsReVuP2y8SeDTumXVOf6vccPd3Lu53wcQZ/Ib1PUytGjz+UhTnS/8FyxyMO
PyHvx/hG6P06O/A4d49w91qtz0tz0+x1tzjh+yFs6/AtgCfGHCuJKe7wPK/R
+6MNzpW+ianAs/juIv8cuzdT5fdka2cqcr4/Y/hPxHye31JnSditGGd7xvF2
k/Ny2nkQH3e2OGZhv4zvVWaxmd+v5z1G/C0POrOD3NGox0hTLiUdh/qYDbuq
ne0nrpscp8H8AFysgOc+8p9PODZhfCPuMadSvhPq9wDaMM79VeQ+knFdU91b
qf9V0I0u8O8KOnOJPtbnXX+kQxdzPqffOPcmvZ+TYHuryXf9zSbfLe3Yl5zz
Qev0raypdS6lkU3UXQ+2WTCfBt8+evyaMxL1/tX7rzmfy9Fq12Jp8uGka5lw
Cu/1Wt8XfVvjQQ+liwOtvkObODtTzvcId08GTsSfvhthFl+qqdqKm8l5v9Jj
zSEa/NIt9Sv7C/JeIf9kq2uc3knbtMurSz2nNFocisuKsJ/SqhL2cKTSrJSz
t911THq2JeizdlPvl5b7vv6Rdm0fIf7FOtcH6cQqnnvIWVDju66d/xGubm90
DJ8SO1zvmPSdSYemAzb9N4jDybTruzSrg1kdqvOa+uYiYQ7ifXc26FLWZyBf
c7XvlviMVjk+4bxKznmeW7D3kO9asP9M+/+ftKWTmqNJ51Lzmcy75kv7/wft
uhJL
         "]], PolygonBox[CompressedData["
1:eJwtlW9o1XUUxo+6trlqd91Nr7a5u3vv5r1zuy8cKdWLJoJFSqLRjLI/kpOg
rGVlTighnWZUSvWqF/UitUjYZhTFWrPABi4QbVhGpBCWTm03e6H9IarPw7MX
X3Z+9/s95zznec45yzzSc/eT0yNiC6eMc39bxJoZEZ3XRKzFfmZuRB32r+UR
X8/ibzpiK+8e5HsS+8CciBOVEXdyFjVF3MJZXunfdJdPRZypiOjgfUVDxIV8
xA/XOcfvmYg/Z9teyH2CeOUNtuUj35cLEc3XR6wH3K6CcyjXcc5+4m9pjuiv
irj52oi92YgSeCc5i/BdzBlvjHifWBliHqmLGG2NuEy8ZcR7kXwDxOsXbu5u
5XQSs77MNYwoF/i+h6ABciTyzqFcab535cAwz9yIo6fJuwf8r3F6ePcU5yr+
XVN8nsP/MjmLxF6ZiNgOvxvB+HjKPvL9Y+p9IzHP8/5kvbGrhlPc7bsx4l1i
vTITDYj/Mb53EK9fHFFbPRo9zPt2fiuRK813I+co9hjnGPE60e894p1oNEfi
6gXutqXtI1/pOxe/l+B8M/aHYDrEuwvUm8T3X+r/pZZcYHgVLJd4s4+7Hbx5
Z4Z9LhGrL+V4wrSN+u5NW1tpfBq+azPuFfH9KW/PEbOUcA7l+hY91lVHzCff
G/A9XGstpPlmtC8jfzf5z1L/o7wdTBmreka9s7HZvaPv3XxPW0Bd1eZM3Cmn
cg9w3w1/S7PuDfXIEb6L4Hu70j3Rjr0j6/oS3HcRr7fZeFbR0zfkram0VX/s
BG9Vrfm+HYwjGdes2jUDE7yfBscryq2ptD1T51kRR+LqYtrcKef2lDWUluoZ
9c7uqfkYrGG+ivRRm+sX/3uw7ykYq2KoN4bB/xFY3gLTSfRoyzrfWr6fTUbc
Nse9JH46mtxT+pbPEG9XFtwb2gF3YS/lPM88PMb3EuwHqHlmles5hH7ftPit
3oxjJ/PmSjP1D9x93mLfTdyPYI/Nci9pnrR7Rqk1Cff7wbAKLC0FvxXeHPZ/
rdZXmk5H24mi+deM/YbvwVb3hnpkA/V90WQ91b9/N7tndL+V+5uob02751v9
1YV9vNGzIg33MjuHM9ZS32N8P0GMD6qMQb12injd1c6hXJPtxiqOS9jjzPCB
Cs/3Ufwri9ZOmpVj9+XcO8JwX4s5EleaiQ78V7eaC3GyCbzfNVhL7cTF5DtN
zB85V8B5lZOnn+ZzznL3M+f1nGdJen6G/yAa9YQ1k3a9SXMhTsTdT+3eXdpJ
V8D+3NS+Vc+r979qM15xPoq9sMm9I06G6P11Czw74mQ99oZWz5p+ezNnDaSF
5v0iWIbnWXthGsLubXC/aYdolywBc2fWO167/ss6cylOj6HVQ1nvRu0k7aZk
xv8rtEO0S1rq3JuauWXErsk7tzheTn2fpMyldpJ2U03a9et/1F+zvfOEV/oe
bvLO1O48T9wJTiljPOJrEntn1rOo+e3LmnNxr5nSrP0P/38WwQ==
         "]], PolygonBox[CompressedData["
1:eJwtkD0vg1EYhu/WZxMWKa/0421PB42hIsTAwtIukib1E8QiRBn9A4mF/6Dt
VL9ADCyEqGjEQiIhGAwVqS40rpPzDlfuk+c853nuc5vV8spWWNIY9MF2RipD
cVI6GpZK6G9Weh6SuuhFVLqETIrzgBTypMe49AQh3gkinuv/o79B/QZufalK
/z2L4gkpBrP07kakOXSBmfNQSUqf/exGX9PSC9RiUr5X2hmXvtk7NSh1UH9U
SsEX5xy1PfYeMPcQPpj1DhvcvbF3Hb3Gx5X1g5cKtTu8nBipgIdT4+5sj/2f
/acJ/phG88xcxlcBneAuG3V77L59z3lq0/fDnDY0mWPo73A+J8MWWZ6hi/x1
CXpgjb3hIDOb3Wbgddpz+dicHvBYo9b0XY42zxlyGCGPBrnUyecY/gFq+Ef5

         "]]}]}, 
     {RGBColor[0.3433504973671028, 0.6337246345597174, 0.6751952693759989], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlVtsVHUQxqdQKMXa4talNLvd7m4hy7aieAkxGu+SgFFBXsUEW/tGVBAj
CVoTNTWaRlD7IE99IT5IAkgopVZdqW20QlJDysUHlcQGTbUSNaFCrPr78p2H
k5kzZ/5z+eb7zyl0Prfl2QUR0c+zkGdnc8SHVREHWiLOLo9Yj3EyE3E+0afQ
z6A/hH4a/eZ8xAecG09FzLdG9KEfWhNx542OM8v3p9sjuuojOpEnyxGXr4+o
ID8r4LcoYmljxI98O1IbMViMeGpVxAB6H/rnpYhp4lSI91pTRHlJxAx57ktH
vLo44t3VEd+i/4V+lJp7kBvwGaS+I/i3ketNfL6n1ja+FTlbwr6d74uzES/z
PlMTsQe5lmcz9c/i+1HZ+m76mshF3IteS52jnNlFnLX0NYt/B7l+Q66mvgHq
PEgNpURfj+8b5Bog1270X/Frx/91bKc66K8h4ljK8WRPM4gtvG+k9/GC8RXO
n6I/Auab6iKWgccJzg9hHy26JtW2mXPPlG0f4ntX2RgcQ/+KvM3E/wa5hJh5
avsJjN8ClyL4HG5y3aq5m/mPNnsuJ5HfJbhdzHk+8te8h/Gfwz6CrMkaT+E6
lbb9E+wP43+hzvM7BF7vUcNtK5xbNTyJnKefLvyq6GUC3H7G/g+2CZ5a4hzE
9nWCg3gnfqiO45Lk+BOfrW3mmfh2N/6Xcq5Ztb+dMT6aYT9+paUR+8C+C751
wsltyBnivFMdcW1lwtN6vx+oMQ7KXd1ubovjp3L+djrnu6F7ofsxVrB+Dv0m
5pIm1wvkrL4hYkW9cevJmg/iRWPB8zqOfpm4J/D7ZY1nptlVkTPfakyEzXzB
WF0DmxdXGsMR8jTgU6Gev8l7R978vx15qWT8r2D/IuGt+PsYtsfrfL6hZH0j
PtubzJOJVmMgfgov4SI8KsQcB7te7GPITQ3WhcsT8K2f2p5nLrfkzeVb0+as
8u3nfa7kXsbp5Z607+pZ6pnKWh/h7I6i4yjeUMJz4bQo4xhBnQvajed/+Owt
ele8RI0fJ3yY1D5IeCXMxC3pC5HvJxzoLpvLmo3mMoffNnyuIPdmzL1J5rs8
6z2g3aD+hcN5OLxL9xb/jqL7VL8/UNdVYc0slrV6h4qTd9Hv0ZTzaF8OF3w3
KtQ4XPSsdV/vR38F+5dlc1q9HG7xDhPnleNiwu0L2slZ70Dtwj0pn32AGBXO
XBW22AdTno/4251yL9ptW2tdg+6GMBW21xGzN9kJ2g2zBfv9XnBNiv8g8f9N
218zebTDcdRTIz23kHcc+w4wGoRL0/Tb2+YZaVZ9ybzGkD3J7l3X5HsuzPdl
vDe1i1ZhW5d3j+ey/scIwzNZc0hcmgaPnQln9qf8n9C+SbV6DqpH79rp6v2P
kuuTfQz5P6JeD2s=
         "]], PolygonBox[CompressedData["
1:eJwtlUtslVUUhXeplvJogdt3/tt7b28htw8bMSohogxQEzEIhAETMMFiBxhE
JRhNjJhIrIkY5TWQgekA48hARYo8hAIp4CsxKgUn6KQ8KkFCKyBGxW+x/sFJ
9vn3Pmevvfba52/pfmnZugkRsY51D2tLZ0RpcsT70yK+w75eiljK99WTIsax
dzUSNyOiWBXR2xZRxbdnpkYUyiIqk4g/WiJWEjufM6fZX2qO+ICLd5Lkv7qI
C0W+43+rIuJclqCOiMbqiIHyiJ/ZZ1kJ62Hi5rCON0XMvTfik4ngyfG9Bmwc
6wXfSfDtyxhrN3cswDe5xvG7iP+W+KFOxy5hvYO9k/gd5K+jxvuIPQS+W2B5
lPj59dSVj2hlf4l6Ctg3+fYL9T3BmQPUdqfdeMWBuFAO5ZrEmQ+pt6fd/H1J
Pc+3O6dy93G+tzVia5trl/9AA3cnzrcKfzfYuuFjdbU5E3e/sq+Du378v2Hv
aTD32u+Dn88KEdsqIz4F79zaiPWtrk01voJ/BP8A/j78Jfw/1huvODoBt39S
4zgrT28KrL/wD+JvBtMpsG1K8YvzAfBNTfu9hPU0sRnOjpQ5vgZ7sGSu9O0o
9umM+70R/xn6eqfOWlB9v1PfIBxdo543iXmD2KGiuVJO5T5c9Fnp4yD2SXqw
EP+T7IewFxR9Vne8TD82g/nxcuvvPexHas2NONpdcE3Ceowab4P/XfrRWmWO
Z4PtQWKeqnTOx9gPZ22rBmlXGhUWxTxEbFmH99LEBOzyomdFM9OTsSalTfX0
Ofw3W9xr9fx84h6ql8LQT29XdTheGtpOL/8pWYu681/sTuI3YK8l50SwbGNt
Zd2QVlk/YX8UxqPZ2t9grUlzc8D7d8l36c5bmu2MuVLPFsH3DzlrWfwOw8+K
WZ5t9eRZ7DOJferBKWo5Tr4NxLfDx9vkOlF0PuHfAf7hJmtBM3SRfA/kPGua
uYP0/3CN71+Mfxr+y13MxQzrTbM+kjNW8XURe2G9Y6VBaVEzq/vG8H/OfVMS
60t+vU3TS9aqvkl7o+jhMmsNXL3AOsqZ2xXWyHqwjvHtet6citvpeWtFNaiW
Xur7mNr7qHEj/r2cH6/wfLVx71ct1p/m6wj2rFr7FPMFsS9y39q83zi9dRVZ
9/I8OZbz/Wy9+VUPvim5pzfSGdWs9jT5Ps30hYLfJPVOb+5V7N1d5k4cjmLv
aTY34kjc70/1Jo3spfejefdOPTwGli2Jc+uN0Fvx2kz3Xj16FXsonR+9EdWc
7VeOLnM2lnK6Jq1Rtc4u+G7N1/3Y5xo9+3dnAn3OS+dTPRgE6yY01JHikbbO
Zq1dzd/dtySxXsXx14lnVnfrzBXyvZ51bzrZX2X/fc7/DsXrbfgfD/sIuw==

         "]], PolygonBox[CompressedData["
1:eJwtkTtIQ1EQRAfxDypKnuaZyEu0SpFGSGot7SSgtaTQRjRGBcHE0lJB0loI
phMURBAExUbxA37Q0lLwpTCgRbDzLDfFsHtnd2Z3ucn8cm6pRdIgaDPEpVYw
G0gfHdIMcXVM8rqlIvFhWHoEBwPSfpe0PSqV6C+DSfIy3ATx25fqYBN9DZ8t
4ldECiOOt3p2yNVK1PL4zaFtJKWXmPQac3Ns3nhU2uuUjhJSL71XaPoCt6ft
e0/uU1/Eb4f3bhOWF9ilgm+RuMDMeVDAr94jXaekTzzP0K5EXc16wrR03k8P
vsfkJ2l3n91Zg0vRHxITnhSAu+b8W+IT7592NCPSIbtXwTvcH9wl3Br+6767
z+684d4p9stxf5YdM2CDfNr+JO705nOK9hePZ8/pzecCrgH3BvcPsxNKjw==

         "]]}]}, 
     {RGBColor[0.37407204515047465`, 0.6647907084424522, 0.6250436999286257], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtlV1s1FUQxUekRYwi3XbbtN3uf3dpt8sahUREEiPWxhgSiSEkxGebIMZE
SVD0QXlX/AIlPuiTRAGNMbZWQoRKW1b5KNhaRElUNEZC2hdRqyE+qL+Tcx82
dzr/uTPnnjkzLQ9t3/zkooh4k9/1/K70RLQsiRiqR/R0RpxfHDFWizjaH3FX
U8Q4vtnuiAFih3IRg60Rb2GPYj/Gt+XEvIx9uWR7K76fyDW5LOIS53RHxEkK
XSzg49sg9tftEcP477+BOtSapNaGpZzliFe6HfPQrRHddddajG8YnKcAvp67
jyS/sJwhT4P4q30R+5cY8738PU69F4iZyyJew97aTCz2yt6Id4k51BWxgG/+
RufVea3Z9lTK+Usl4tMex/1ejai1+e5Ij3lRrbF+55K/j9wP8KZniP+E+2fx
j+B/akXEb8RvwL6PnB3gWUfMGvDsTtj24m+UzcMXZecQh+rHmZTnHOdfVeMc
A0N3q3Nuz9wzxRapM0I/hslzmJzr2nz3Q/rTRK2NcLIsM49662fk2QjX9Vsi
NnFvlhqjxK/udT+E58t+x6rus5xzt6GFloiPOA/0me8HybErcf5Oztwo5wDf
fgXDn9dF3EndN4h5lDxN4Pk45VG+tRVzUuD7RM2akXb+yxyve9Ptzne07N6o
R+q/agvDq/ivws/TYKyBv5TnrdgL5DjNG07fFPEtOaq8McM/WTPv4v/Fgt+q
mB/Aup67RWLepneNfvveb/NP9v6iORW36rMwCdtX5N/HncPSM7mPcbdA/hPd
7ok0rz4J+65m17gn1bqDfFG3fxY8RyrWQaPgfqgvM9Q63mP7brCsKllzqzkH
8n7XJuzGUudRneVd5uEaPLwEjmb8Z8H/d+L29YK1Kw1/QOx3BfN/uWJtSWPz
6GpipWd8G/ZBan8PD4MrPKua2YNoYUfiUzO3Le0H7QbpVfo5xrkv7ZMJuNmd
8AiXuBFuYRZnk8zzw9itme0c56Wi7yqHeBE/P8LZ8wmn5myqaGwTndaTdPVE
ZqzyHwD7zk5r+QKc7cisT+n037z3ofZi/Wb3UZzOp/ndSezJzHxKX9ov0ry0
P5p2hXbGz3W/R3vuvS5rcjrv3Seu9oD/RM35x+GsPeHUHEjH0vM5Ymfyvqsc
RzqMaW/NM6xZbpBnUcl41GdxqT2o+3Np7p4jdkuK1w74J3OPtHvWZq6rnbQ5
Z26179V7aeBCwTMgfY7XrC3xUU37U3tB+DQPmotDbX6P3nWlYjzCIt6n0MkW
dsIezlM573Dt+M/RQYO5O855e6/7slC1LqXPPzL/7xG2i2B7PPVL71tTss7P
E/tN3nfVW82bNNSS+ZtiNFszab+t6nVNxWhu/wedEBcF
         "]], PolygonBox[CompressedData["
1:eJwtlEtsFGQUhS+lMzIKxT6mWqbDTNF2hoHyiA9IiNIYY1iwICTGBUpiE4wh
URICugBWsCBGIiZudGkMGNnQUioI2nacAUpFDMrDN8YqhgTlUbWpAflOzixO
cv/XfZx7/tvRu2ntq3URsRHUg70LIp6dHTGYinjnoYituYhViYhb0yI2Yw80
RbwXvjPG3SX5iGdmRByaHlFu54zzd8HC5ohucJ69k5zNJcgT6Yil+FgCrmUi
/gQ/liJeS0Z8TfBsG/fabD+Nz8ucXZnnXBTvLeKVa+vSrIgjD0RUWVfATs52
gT3Yb9b2dDZJrAZibyDGFPZKcsjVOaeL5HY65zPdOYn9xdyIJOvvqXcMe7jo
3HV/pOgclIs4OEWd01oxwH3UMjNjDsTFbraHscc7I34F68Dz4NNCxDL47OHO
Wd592BLxA7GeYr2H9yNtjq11GXuQGIdBPVwkwHp8vNDpGlXrTfzdALfABNib
8Vv5PIDvM8RYOd0xjxWco3Kdhd0Aig9HbKG+Dzifj3027fUp0Jfl/ZyIfs6O
0o+tD0YM8aYy0/kf7YhohLN2+HqO9VSra1xXy1G5vsL58qT1sxH7k6x9vw6+
IdZiYg4kvF6EPUhNfSlr4DD2saK1UMH/GP1+JO9+7MDno9gnqLEKxunVb+AK
+B18S43fZVyjap2BnQIXyHGU/FcRo0L+/VnXrpq/SptDcXmbszsd1qi0Ko7F
9dK09SrNLyb+YznXphofx74JXsLubYw42B2xr8X9VA/2wcd/+JgC/4JJMEqu
799jzb1BnA30/H7y+Yv1AXKrz1hrjdz5g/X1TnMhDp4klxUt5k/9uUY+1Yx7
UeZ+c84ciIvLxPkFNOV8pp4N8fZGFzUnXf917N6SYynmi9gV3q4O+5TvL1vd
e70/Tv4nCuZSeqsUrDnZ4niU9aXa/9ef6yHfVLO1qJpV+7Yaf5ox27GrHfbX
Q8y16P7jef5P4vwI9qK89SCN9De5R+qVOBW35aJjaUZ8XrSGpKVyQ8TP1HMc
DifxdfVeZg+5VPFRSdmnfCfy7p/mQV3enIpb/YHl1PZTyb6Uj7SQhJNExjNA
s2AN/kqzXaNq1R8RX9pbvcAxFVucD2TdA3GpP/UZ+b9d9GxTDZpV0qy0qxmi
WdLXbW0px/9z1vx4TfPS/mRNW/oT+hsTtfmn+/9gT3T5r4mDv7v8p1WfNHSO
v76/0/NDmt3P+3Pt/mviSFxpxmrWaiZpNg3PpwawDXs7GCm4d+phGfujOf5f
0vOZtCFbGn+5zRrXWneKxDufdn7KZyjrmafZd5vc74C7oksVXA==
         "]], 
        PolygonBox[{{4909, 4908, 9075, 1458, 6858}, {7656, 1809, 5630, 6917, 
         6918}, {7305, 1637, 8818, 4761, 4762}, {7905, 7904, 7128, 64, 
         7902}, {4732, 4731, 8769, 1352, 4891}, {4748, 1296, 10689, 10687, 
         10688}, {7988, 1592, 7190, 7984, 7985}, {8190, 8189, 11694, 4450, 
         11697}}]}]}, 
     {RGBColor[0.4094403876859498, 0.6882924371622131, 0.5713140263133097], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFlUtslGUUhg+92jpQ/FunUIZ2GGbm79AiliAaEhEWKLRGI4myIWKEhS7A
xIimiRJJWEAoNAajBl1oNC3RdAExltAaOy1TubSlRRcUUi4BpStuQqISxefk
/RMXf84333cu7/ue832z4PW31m8rMrNOvmK+w4vNHn/I7N8Gs/J5ZidLzV6u
MWudadbGdwifoUaz51kPYvv5nmM9Ust+zGxNhdn5GWbT9WY95WZTcbNChXyO
UKC5ymzLw9Qgz8pHqcv6VsbsVJ3ZDvYWV5u9M9vsg0r2AHY0RRzxvdimKuV/
Gr++0CxPvVHy/8r3M+uC780yW0utT/F5s1FcPgLb8QjzOOt1M+XjeD6uEjfn
lW/UegD7Zb0wbsXOn6u8U4vEZQ0+3ZxZUvm9zpm4+P8IhgNweA/86bTZaeo9
i38fPmNR7Z9YT7DeQOxL5LgeafUbtgLNT6H5LPJMz5f+Jew9lpYmS7Bn0Wpt
idn2OWbvB2avAWUgZ3YZfEPgrAfvKzXKU0nsZjTOwXOJibf7OPdV6P9hmdm5
hNn31FpH36bA3tlkdgKe19G8PerXP/zugeM3cNwHtrJoNhzj/lDnqxeaPcV5
OzhP0rtbWf2+nRUfxxMjrgjOLXAvxd5OSMvJQLPQVKnfV1PS+hq2hVkcRZ9l
2BEwv03uXWhwJ6G+vZDU3Pj8HAzEsXe2ZqCqVrFLiT1Qq7rFSc3RYEyz1IKm
O6j7GTlyaeFvTIuTa+e6vTFXdUepf6xZM9rXLM7u9zkz3AG3cvT8ij6uRsMc
+50LFOOx34L5i4XiWJTVfXL9nUMZvevFfxi+A1EvesBsWfl73B9Z3YlVcfXJ
ffrxHQ6kmWu5q0l5CuT5JCFNTpOnK9Da93weXVufgUH6MowOeewmOKyA73pm
5/eUZmA6JT2Wx9TTZ+Ky02D5IVAtr3kzK58b2OJqabaS8511ms8LSfFxzK1g
mJEV7/P4XESv7+jRlXr1z3HuwWdetWJ9xgfAVyD/OPUvxOV/Cf9SenqJ/b84
H2nQvXh3jvrgb43fYb83K2LS7sWkNJ9MCJPn30bc1+TaS87D5G5L/M/1Xlax
d7FDKfH1XnkPPF8e/R806B3wt/N4qLdoONSd8xlwLfzN8Pn2Pt3j7CI+JWDv
ymjGutB8d53mxGe8u0b3rjsj2x5x+Zu6eXA+Qs190bwdwrcjVB3XfjKahwcZ
vV8e1xnqbfP3zufJNXKtJsjTH+oujMWF199Vf8P9jhSi9cGM8nsd75n3zu/f
k8SPgSeAy5+henE/1Hvk2nYEejNy0f/C3Yj7HeyJQDPm7832CM9onbA65hK4
LI/yP4Edimb1F3C+Gs3qRux/t0AJdQ==
         "]], PolygonBox[CompressedData["
1:eJwtlF1o1mUYxq+Zc+3DzX346j5e5+be9eo7cnUQIjgqWH4MPxDUk1CpDjpy
YWV4kCR0EPlFYQzaiUZtEnSwZSn7sL1NRec+WnSQQRA5QRLMqGApZb+L+39w
8z7P+7/v576u676ep+ml7p0HFkjaSywkxuulDfx+WyaNPCG1tEhvlUgHSXqv
TrrTLF0rlrLl0pfLpeE26Y0l0gTf/2yVFhA58k9XSD/kpDnyr5Dfz5lXq6Sp
ZdIF8jctli5lpd5VkX+qVOpYKpXQf6KQXuyfZn+jUTpC7SbATbIuS75XF0kF
KensCqlokdROzhnWo+nAsh78f4OlEsxLiHlq/yF+TfC8QP8bYLncIPVQO8h/
F/k2VRe93HOC9X/UtD8uNcC3cA38OfM65z/D+b+znk6FVp3UDzehCZwPw/1f
9ifRrwPOazlrNfvncsHZ3DcT0/R/yPkPiPfBcYzozUStaz5mvYX/NhdEzy7W
PxLvwLeL+hnq25nPkZLA/D14/2oN7m/z35N8u1sr/Ua8SY9DxP1MaN1J/QT1
79bFbPfT7yjr41Wx9n+vUnevNbge5ryPqvFIdWhtjuY6kg581tzaeyaezXVm
tIhZnWwK7qvJ7yJ/G9FWETM7wffPaqSfqL9CjzH06qkO7PbUEN76Gc3z5TEj
z+pcTdQeo8cnzHthffSyH+vJ3VUTe2O4m46ZzycaW+tvsqH94GME/LMtwW0d
/e/D9VEmvGpPiv1YbeDL830YfH3Lwwv2hFaGJ7y/AMev0e7zRE/fmQxnr6B+
vDxmPpoNza29PWgvTrLfmOxvsT9Bj0/Loqe1MUZjdc4I9WPElsWBz3fnu1Ro
Z/8NNYUn7A3n5Mnt44yXS8NTz5M/kJxnTL+sCY2sle/UbnK3wemcwmPbWY+C
ZzzBYy2mUqGFZ+rZVqJpvijeDL8dfhM8C8+giP1AKmblmR1n/1U6vGzPnGfd
j96vlIYn7I3XOK+7MTxr79qz9u5B4vXG4GAurukH76nEX9bsi1R4zF4z575M
aGJtcvy3NRdvkt8mcyxgvjeT+7SHec4uizvsfHOe4bwXOWN9abxHc6x3rIxc
1zy7NO6s7+4HzO7D5sBorHNgu0380RreMmdzt0etj9/Qa/hltjF5b5jnU/jl
anN4yZ6y14az8VZ5Zp6dMRiL51WMnvnkvbOeY+nwmL3mO5OujTfU+eawj9r/
AYs76IA=
         "]], PolygonBox[CompressedData["
1:eJwtkksrRGEYx/9hcs+1OUIGDYeVSy7lM1hgYyf5ANjJwuwliiHWlFyytmWG
YUPEipByW1GiSBm/13MWv573vO9z/5+6kbGB0QxJtRCCpSppEfZ9KVUgJbH7
9dIePMNxrvSELfWk02ypKyJ51VIFXIQtJkFMoo5Y2KyUNqAhKk3kSfEyKc39
L/zgd4d/iFwL5JyHafLE6GO9VNoqJx5Wa6QZaq1hB/juyZeGGqRZ/OfgiLsU
PPK+g98L1qdmIySapN5C6QB7E7b3Z96vmPEaRul/mHpV9DXGeRzOiTuDFnqe
oudl3jJZUFuOlIEt5q0E+jkPctdXa7VczTdyvsI7s90y2yd2nvla8UuTO858
i3DmWV/JJtut2/EdfW3T322NafCvRbXFhIL6cc/26vabIvcRNS7Dtge3j0PY
RaNkvc3n5rwP8l7jt8Qsk8zUHDVdnD5OO6dhB/2d4FdEjfbg3Baxedxch0G9
A990cfqskC9Gvtao7czt7jvQ9cs3XZw+WZ7t48M37d0/8Mj9A3RG7F/qxv4B
FjNxgg==
         "]]}]}, 
     {RGBColor[0.4478755699411146, 0.7079060785739398, 0.5188211869534823], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1Vl1sk2UYfUbXrds6N2jXbi376dZ97Vir2UwkRNEQMSaMSYaCicoweCFe
DCQY4y0E4x/OwagbcqOZI0oCcXAlEGWZKzMw3eKyaDbwAt0aTfyJF2b4g+fk
vF407/u93/M+zznn+fma2LN/+75VZjaBnw+/vxrN7gmYrWC9GTdLlphNJ8wG
ms3eLzMbxDoQNpspMlvImOVgUwGb7xvMPDh4usJsFu+Oh7W+22q2IQjHd5n5
8TwJm2crzU7j6Jjz0ws/56NmjyDu52mzA4i9XGp2H/ZLiDeFO+NYzTMbgv87
8PlxDHhxNxcym/fpvA1EZuHnSzx/t9bsKHDtDOh5Nqb4w7DfuEZYdyPucKsw
D2G90SacR2qBb434HkfcrU1mO+BnNGl2NSxNVlLAiLMnAsLXVywb7g+s0573
tjUJw2NY8z5xJPfLae3JuxO/Avi+BN7DwHJqtbj0+s2eqhL+PPDkgecH4Flc
LZtvcf6i02of16jO4llgRz7exPkHWDe1mzXDz4PwsRfcxhD3LLg+jPM22J8E
927H8X/sy45Lp193U9j7oP9J4CvG+hB8ZYHnBGrjtQj8ItYANNnSJE364KcU
v3ro+RFiHmwUx5exFnniOYf4F2qlXQG8UjFx7oGPiZTqivVF2+eqxO0tnO2p
Us4LaeV4aw3y1+60Aq4IcpSDn8Pw1w8/o6i/C3h/BucB2E+mhJ37dvjxY92E
9W7k5UnYnEedxKFbsBwa4vxfPHdXKhZzsdPZ/FxvNtKiXC0BywJipLGvgf7L
aeXpT+x7YD8G+99gXxoXX/JmH7AfeGc3chDB2gkuh+u0z8F3F+q4G3G3rBVv
1jm5rytTToh5V4sw+nD3YkJcZpCT2yXC/wp8HUso18z5pNORcV8FjiLk6Gab
NCZH6lyCWnoG6xLw7qpQv7Cff4/rnO8XM8IxAN8jQdUK7aaCyt1md5/2Kwlp
St0OgV8KvTQE+zeQo7KAOBIrZwFnAmfMZuCZq9A5e4W42Tu3mrW/HlVPkAuf
bzUo7jnc/RU11gEcBU+4qBX95hH7UewXoc/RuPI/hv2VlOpgNCxb7qmt53qA
dz9Lq4enEfd2QnOAM5Lx510e2ZesV2rIfDPvj4fVi+wRxmPdUIcdYfUJ+6Wr
SVpQk7qwztgL7EHypz7McQd0i+PdLPro/qByzPw+AA4Hq80+zahHiYd1ST7k
8jb4HYqpL47ElFPmjPw4ZzlDOsBrIqG8feN6+kxQmL9uVNxPgPNaQhpSy/da
5esU1iv1wjOOdaJZ3Pux+l0t3cG9Eyn5HMS6Pqgckde5iOqTdXoxo1k9FFI/
sBfKofOHSfVOJfZzEeEkXn5fqAV1+Nt9v/oR88e0eiyGHjwbUV7fSWgWcCYU
hxSTe9Y2+Z4O6oy47nXY2B8bnH/OVua2wJndoBrgN4G8WcfM1UJc+tyIaMax
HlZ5yuF65/MFT7VdjiL7Kqq6Yn31O922w+frrh6SSfG4XK36vw6OMcS61qhc
X6pWvqkvdS6Gv9qszqNYf/LEZaOrEXLjt/MPT7wuZaQ1Ned3knOHmv8Tk2bs
cdZ/XVY13oWcTDsMfYjVUiUb9svVlPp/CusXadUw5zp1HXXaDoYUn99wzlj2
OXWjX/rnHOUz9aHm3e2aaZxtIw2a25zl23Cexd0ezPz5Gtk+70lT3t2LfTKk
GL0tukd71k3OYfgFNpNpzfc81v1R1TnrfSGiPDKf4+5/yAze/wcwL0tT
         "]], PolygonBox[CompressedData["
1:eJwtlV1MFmQUxw+8fCkQygsvX4KAwAsIF+qFtTKz2dokcljaVqnNLtI2da2t
dZnOViv8BAOzixqpq02L7lK3dAbioobLuRTMC0uYF1q2arr18fvv/16c7TzP
Oc/5+J+Pp2HT9jXbsiPiLSgHeqYsYjgrovaBiPz2iL87I6bmRvyUiJiuiNjb
EJGGbyyJWLEw4kppxCb49/Mifp8XsWFBRNHsiH+xsR7+KvKXkQ8WRmS1RGS3
mG/D6UfIj1VGHIWiHjm0JuM/hXxjc8TNVuseJoarxPIlOjUFEbnofAH/SV3E
e/kRC4mptyaiqSliIDcigbwvSU7oJKC51RGlUJIcSqFKYq2CDsDvh/rhD0L/
VNu3YughlpvQr9DS+REPQlOpiCfxVUi+N/B9vc687iZTtinbJdicA21Fvjnf
MX4MP03+i4oiXp8T8Qj6/eDZOcvx9zX4jd4uxtcS6NFSY71YOSV9J9kdcv0N
6ke3r8I5KteL843PSegNcN2DTkGefSzH1jJ8LilyDIplX9rxteH/BLIedDpL
/EZvzxLTyoTvVlPvjR0RLZwnwGc/uPTyfghb66nph9QrUe7ay8ct7OdAhzL1
HqLex4lvFrHdx/6ZWuegXP7Ezl/Q7Brj/xU21mE/Rc0v4+8UeFXCH2p2rBeR
H1B9yP00speKqRO9Usz7rTl+/xzyvdg8WuQcVYsj9MfaAut8Cr+KWnXnOSbF
No69Eew/wfk09q6D4XSB33SD7/fg0ZSp93fwt1vca8LzDnwPOhuo1QXFiK27
3D2ELIt5ehtbOdTwSJFjUmwVnc5NGCXQXbHAuUlnD/IfU8ZfPXaO80yjYx/j
7majZ0CzENi/1haxq9K8fMr3N63OZRT9H4inK+n4nuVuFW//A8+BQs+wZvlp
7tYh68XfXbA5W+taPYy9x4jlyjznJp3V6JYTf2u2a6RaddXbtjATdoNJx6ee
XATewyn3uvprqM47Q7tjlP4cxX9Vmef3Nnef4fs8OY42ekdoV2gGNYuaYc1y
H5h8nqnvO9i+lplP1WhGswcGl8hvJfntxn5/0vWSj3STc1JuwusPdGcqvOuU
/wzYvcLdm9m2sQW+utO9ppyr4PPavSu1L84R589trrXeXC73jlPvC+Pg/Sg2
u4uN4S30JypcS9XkW2TbyG2aXIbBazKzE7UbtyB7Ffql0VipR2/A72RfHcy1
/mbwWU4+S4vc013zvDO0OzSjmtUTZe6lMc7n1U+ZfaQ3evt1h3eTMBJWuzL2
VY9x8hmgX14o9A5YBp5PlRsr5TRCfMfbHItyeG2+d5B2UTU0znk3PnPz/Icc
x9+9tGv1IudcsFhb5tlVj+fXuAdlX3+I/hLtSPWPat7P28kO76J2MJnqcI1V
a/1BTUn/Gfo79IdNE9+pDtdaPXkS/nCzd5dmTrN3r8GxKKb7Da6RavU8NgfY
fxdKzatemiX9Gfo7tIO1i/c1OJYF6DyO/gQ5rkg45zNp11T4CNMd1e5xYatz
itxH0p4NzfyllDGXXP36Lvo7qoyPduRO+A+aHbtqMgg/lnZt9V67e2uFsVcN
bte7h9RL+vP09+lOMs3nds7/A6o2ILU=
         "]], 
        PolygonBox[{{10230, 10229, 5892, 860, 7153}, {8052, 2024, 8051, 5349, 
         5350}, {8851, 2464, 4774, 7318, 7319}, {6674, 6673, 8185, 2095, 
         8188}, {6312, 3613, 10758, 8902, 8903}, {5937, 2023, 8048, 6635, 
         6636}, {6030, 2095, 8187, 7307, 7308}, {7319, 7318, 8139, 2074, 
         8141}, {7308, 7307, 8850, 2464, 8848}, {6636, 6635, 8054, 2024, 
         5938}}]}]}, 
     {RGBColor[0.4904912561583853, 0.7222197480660728, 0.46801431457534726`], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNV2lslFUUvexLSzszLZ1pC3ShzJROR9kjSiXiDw2IBImaGJEIKBCWQmkr
icYFBElEZGlZlEQT0EKsBSMCQlSoQEFEowgaVsFAWUoiJIIoBc/h3AaT+fLe
d+e9++5y7nn3yxtf+sSM1mb2aCuzNhi3FZm92MFsfgbeo2ZbIAsnzBZnm/XF
fHTILKXQrLC92cF0s9reZme7mA3Hmr1QdKW9dG3rrvGTHLO67pL/0NWsMap1
JdC/Kmb2SCezb/LMkvPNxsGAYNhsVo50fgrdy/FfMdZUYSxINXs2yQzTO+Mz
Pr/RWvNcky7qXAHdRzDux7MB8qZMszLo7wv9U+Jmg2FP925mldC5pa3Z17D1
Srb8uoa9nbF+O+Tr4Fct/DyB/1dCPhRPabJZl3vMNgcRo1TtLYENPwfM9phk
rflgHsP+7yCPYhzYSmt+gTzeSf7Q/nOm9VBn72PcHlDcqzqajYENAew7WmB2
vrPZMYzDYH8hfFmCzX0x34E1W5G3gOuiniSsrUxSDi5GNW+D+Fe3lz1N2L+q
l+K2opfOv2MHniNYdxjyk4j/8FzFb0Qa8oO8r8W+dxHDUuidgqfRNA5upf0z
EZtZeF7B+8dpsr0e+c+PQCfO7Ys4xODDHNhXhf8vYVyINWV4mvOVs+7wZRPw
sQF6liHe7SOytxf2TmlndhnzPjC0X2eNjFUlnK7AMxt6XoX+FxCTlzFmhCRv
gj/XEIch0NnQW7kYhGe3KWcDfc4YM3aMWybO+wo2ZyXkG31kfOqhb2pQ5xfA
h5mQvYNzHsqQfp6zG/8dgK0J7LmZhTNpN+KQlS1ZA/Y15MvO9fBvl+N2H/yd
FxTGhjOmqYop54xZv2TVTxPmJcny91BAuCIGr0clHwZbprmP9I14pc4HoX9Z
uupnNfJ+y227CtuaPU4tOeNYkyY58XAoSXg87GtuQ34LT3lQOeH5jGUIOp+C
zrbATr+w6o71N7anYvscxoyEcN4V4yS3kXVRjfXrSESQr2FtYc14cMHzXfS+
FX/9VGy2APJS+Fjl66tRy7U54hnyza6gaonYYAxfCyiOfQKSf+G19p7Ph2Qo
ruQn4oBy+vJXseyfhDr7rYd4gHzwpNfSB5Cficv30xjfjiqG+4Gx/u47dVzE
/Cjm3eDXcbwvgh3HMH4Yl/xexOwP6K8F9x6HLZGA1rDOV8bFYxfzxS30nZwz
LcVseorqs8LzQDyQD8ld5BbWFuXEaGmR1p+OiNe4pg9wO62HOIRcQu7f4Xtn
pOiM6rbSmevc8lmuuOlh1NfnQfEn5be9BomTDNiIdNzhJMoqW2owJM7diLPm
BoV1Ypu1xJrq49ie6/JLPqcf5ACuIQbIHayHLxHDm84b5A9yz/VU8c8DxZrf
j/EE7xLYvBG2VyAOpfCrrEh3GDk/CmP/dP7vj/kY2DkCOr9HINpkq07JKwfy
JD+YJ1uanIuIt51B4aZVrtbXIM4VCdX7UeBzVFw1zlpnHROrxNzVqOrqzYjw
QTwQF43O54zhqITqmvXN2iDmF8RV94f8TuF9xHyQyw+7vOVeYn0Rz+fSdfeV
5/g+38v8MWcBH8OeP458Z+7JH6wl5qUuLgxOT9eaiK/P9L1cz7iQF3gua4Wx
Yu5+baM6ZN2dLdT7OdRHIKweIBOxGtNB+CTuBqWJT5pZN2HdQbyLqLu/+0gb
6QPPnVMs+UsYI84z5Jv6jsIAY70mKF5hrMndrI/JiO041N5s8qff88QnMch7
pNmxzRwz1/Rrp2OWc+Kh3vH5e0R1Uw6MVcfUO03NFiaIDXL/XHBiNvx6A+M8
n2/FOesKdH98VKCzyEeMVWNYHHg9ofuedZqEfevx/iPmmZhXxdQvsW8iv+1y
TH6bKe4ih9FmysmNb8HfAGKwPKYegXi8c/dlSudI6DnlvoxAcP9OVXxYX0ND
8ou94aJuysti2Pgv9oyHDRN5J8ZUk2NxTrticQA5cg/yV4SzHusqLqn3vEyJ
KsaTouLrMr/76Ct7JvLS2p7ii7ZR9XDEcyhf/QJ9pz+p3k+yr6xJ1l7Kl6YL
o+OKJaPegPc0tH91N/HVbefTWz6nTU1R9QfsxU7iuYz5qQLxH/FKrF6AXxOB
qwvQ93S6eoAuiM95yCdAfp73QEL32blC4YVzYoZ9J/mHPDQyVzFn7Jnz8b6G
uD0RVD3RTuKStjX7nPElprme8V0Knevh/8YMcR/xvwnjgIjiTi4/7Pt5p/O+
pZ3cv8Xrj3XFuFIP810SUp2t7KWehv0D+4jGQvlC/3hfTXQb9vZWf3cJ8Rud
rvXNWH8mojtmZpH6UJ7F/LLnIj+QF1pywPqk7nrvu8in5FX2U6y/nY7nfxx7
N/LkwwS3gZid6bidHxHWyLvskV73Pon+kj/Ja4wxY81YsqcjB9AH3r+bnWOP
p9391iFOiQdilTo2u55ReaqjrEzZsyZ4N4/MIecbvH4Xh/ye66x7nN9U/A6q
Q/zqMoTjJTGdzTOYl329tfbxhPZTD/mAvDXXuYs8ynudsa0pECZTstXTs3fY
H5LtTW7/gEL1LexfFsbFveRg6mv6X7/OkXlp+QbgXcVYMqaH2FMViy9KMDbE
xD916VrL7wf87L4c1S/vpSznHMaDfeJ5j/kk18k7jHcD6zotrDuH/VGOf++U
uT3UX+nfJOXeO8x2HeVuG/tF3qHLwuoD2A9UJtRjEbt7EYPJeMKIf+uE+sdZ
jiHeY/wOIe5u5ig+7Hkr/ZuIfpX7ebR9Sb64hRz5H5OwPvM=
         "]], PolygonBox[CompressedData["
1:eJwtlllslWUQhgdOabGFtpwupwtdOd3O6cECXri0onCBkQJRXBKFEleo0oUC
lUQTI0hdQkxXWqOJF6AVJeAVKkYuXFqKETQIJrZFwUgpFJUbJbEYn9c5F5PM
93/fzLyz/yWPt9zfPNPM+qAEaG0hlGR2hENZ0Kw1Ytacyj3nX3LMNpXzjXf/
zjNLXmiWmm/2zSyzKDIF2WafVpvtSDYbQmkt5+UZZpWch3kznWd2vMJsxU1m
4zP4Bh8sNbst0WxDwCwNvi7bZdtTzC5jqwn7m7F/AJv3Fpv9A30x26wXugU8
z4fNngJbaC7YKs2WFGEvri89ZLYRHafRdQY6m2XWzbf9AX//DO/7Fji+fPDt
zDXbjf2n8eUoOpM5743jXaQYwW/Av9x0M2BYHfHJL3TfFYOHM/E3ahZO4xsy
XSVmC/E5gj9PYm8Se5Mh50e4n8Tf9phZC/7FiMd2+MPItyN/jPOhqMdU+oVv
F3guYO9gksfvS863g+dv3m+ZY3Y3+MrRcQJ8fcTgQfx9lPg3IjuFz4nEq473
13n/AvKrwVef5fieANMl8F2EHoNfTEz2EZtLIb87hs58dK9C5lSCy9fDb4k4
ftXHKoIyzJt2amMr98erzDrBNAi2dOy/gi8fkp97uLsGvoPwfyDzO9SCnVao
I+r5eQjMr8KfzPK3i9ExWe42ZVs+3yHfsfd2mmOeAHt9scdSmITtgwJqB8om
NyHoRrXr3oeNPdhbB6aLyLegfylYu6EDcbwd3I0EvfaUr37w3MV9K/dboQ3c
j6JvD7HJgTrRP0Y9XiF2tcoH9wPzkYO+xdeTRe6jfD0F/x10M/XxU8BzoFqR
j/JVPVSOrjdCjlWYp3l/I897STWr2n0232vzfWS6wNaCzQ6wBPCpDLydxKsy
4BjHwHqeb3XYWsJ5R7XXoHw7C03DJxS7LeWgN+SYhb0Jvhl6rtplr3L/G7FZ
HvZeTCfm71FrvdirjvfLUu6TkEmELoJzAnqAGK2FksjN7IjHTLELQQ3oHkXf
pWSvkTH09Zd5rz1C/w7AB7J8NqTwZj3+r+Rcg+znUG7MMQmbal61fzjbYyNM
3WCbG59XXyG/H1s1Qe91zTzNvhA6jmDvqHIKn1DuvaBvAfg7K7xWlGPlen22
996LvD8B/gbObXO8RlQr74bdlmpStdmwwLFrhobBdyjTe1k9/Sv2X6ZH14Kn
h5iO0z9lMe9d9XRFzGeyZrNmxF9B70n1pnpgQjmKz0vN7As53uPqF/XsGvhl
FV67mgG14G3K9Fmjmvme83CV124b34bgl+FPHecpMI+HfWZqdmrmzsCfrJjH
6i30jVJbu6jPndAmbDdCJdAP3J+Gani7OuazQTrXxFxGssqhcqkaU61pJmg2
dMfrST35UbbvHO0ezfRG8jECxqkUnzmaPe9EffaNc77O+Rq9/2eB15xq70q5
+6Yam4I/D76m1HjMiN25Kt8VysFu7jJCvku0o24tch/kyxmolPu8mNfej+oH
7Z8cz512lHbVRvC0xeUb4e8Lem9op6yJOkZh1Qy4jK2eCp898rkXfn7E548w
tsD3V3i9SH4AflHMsainL6BvOMNrTTU+qN6kp3tKfQZpFm0rcizCtDjkOVVu
r0Ln4F/K9V3z/84p9BmiWaJ/hDDYt0V81mu+bo/4jBTez/i2mfcri/1e8dTu
3lvmvbsO6ib+b5Y5rx2pXTkz5vWkedMHnpRc16Ud/Anygxk+W5TjWdTnvHg+
tONTK73n1Hua4ZrlBRGfZYqZYqcdrF2sHXSI+4+D7p/mp/5NtBO0G1Szqt08
+NxM3xnaHT+HPTbqafX2UKXPS83rr+FfR+a1PJeRrGaYZpn+Ebo4/wdBKlWs

         "]], 
        PolygonBox[{{9254, 2680, 9255, 6793, 6794}, {6599, 6598, 5852, 1964, 
         7906}, {10670, 3557, 8049, 10294, 10295}, {7143, 7142, 8697, 2402, 
         8699}, {4708, 2402, 8698, 7134, 7135}, {6249, 6248, 10669, 3557, 
         10668}, {7974, 1576, 7153, 5894, 5895}, {10760, 10759, 6312, 1125, 
         6915}, {7666, 1479, 5201, 7664, 7665}, {10295, 10294, 5937, 882, 
         10292}, {8652, 2379, 8651, 6598, 6599}, {7321, 931, 8848, 8851, 
         8852}, {8144, 8143, 8368, 2195, 6195}, {7135, 7134, 8653, 2379, 
         4691}}]}]}, 
     {RGBColor[0.535618160991057, 0.7331707547101323, 0.4213409754186406], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNWGtwldUVPTckAfK4uQ8S8r553Nyb5N4vIPKoPER0KqMBnBFEUFpEQYJA
[encoded data, 4200 characters]
+A2HsWKoxaCRpnPWp+RB+kpFlb4nM+5wn/8CtuNCkw==
         "]], PolygonBox[CompressedData["
1:eJwtlmds1lUUxg8ttIVOSsfLLh3vS/v2paAVFXCAiUQETVyBEIMDZWnLVBRF
AbUgOKO4EjEOUERQPggfTEw0AipBiQJlRFxRAUFcRcX1e3j4cP6593/v2ec+
5wy4ofWKlqyI2AF1hrIyEa+XRGzoFjF1YMSRZERzQcTPhRFb6iNm9I440YU7
/HsyFfF5v4iR8J3Lv12se9RFFOZHPIWw7qxvQ17f7t7PbojYXx4xDvljoUcb
I57uy3/498AzA11nofNPZK/i/ATn7eU+2w1N53w5MhYXRRRgz+xKZA2I+C8v
Yjvye/aMeKLM9i3LjXgeezLpiKJibIIa076ju1dj06vYtqEioiHbPI/hz/nQ
xwQktxSeQREbK+yrzm/B95uROSnXMiU7+LeNszeJ1zs9IjbjT0dOxCH2B9j3
64P/UGk1sYHuqnVs1+Lf0+zbidFCfLuzE36y3sf51izH/MekfZSvK7sSS+4f
VYwKrGMnsRmCDT2wZQo23YJtD2P3LMwaj3+v4d+qfo6FfJyOraPJ4RzsLSQG
jYmIT/vDz3ol5zPRdRD9P6J/O/QF6/uQMQhZBZwvIhZn49NQ6B9y82+j/+ms
iTv3c/c+zv5C/2z2W1RLyM/Ls72KTXMNNYa+3fh/JucT4T+U5ZrYiryuPS2r
BJ8G4dtaaGaxecS7td61OJp9B7FoJQZD4W2G7oB/GP6jJvrCcz68G6B5rPkd
HXyuo74mQY/g66PQkl4RFyDrGeJfSe30o75a2Bdiw/WyD3vmZPl8Aut7sTc/
2zUwlVrZhc6l6P6LO1eyPyNj32STbFvKvob7VdiwjHUW/OW5rpks8tFADg6G
c3IxtrRy/geySuDfiewU9mzmvAh7boD/GM4dhf7l7n/QGvy7Fdk7uV+VcMwV
+2nU2G7is4l/Z/BeJpODKVUR2dT0b5yXwvM9dz8jP1NynP9ZxOMIsXmWejzB
nc7c/Y47lN0pHvFORd8UaBo0HXoDW47nOEaK1e3YvIX7LyJ/Put91P6iHGPA
PGRdXO/aO4C9w9lfVeZYKCY/IysHm7fC/wf3u6Bvm5LJ2QLuXIq/vcqcC+l7
kP01yKjA1yuQuTjhHCgXbcj/TLnBprXsn0PMR+Q/w/0R7D/hfBDrEpwrhgqg
QmgN9fs+tp/E5vfQvX2AsU0YdyX8a2sdS9XIa6zfqrJuvaFm9G8iX6uL/Cb1
Nhecfu/Ch4WslyR8X/IPEIsPoV+o5wnYszxpDNFd8dyht8j9OmJRC92NvfdA
SdYvIeN4wv90pn9H2b+AzpvQ/S7y+nA2FBmLkJVHzJ5B9pika2M++0tYv8Kd
cd2d42nUY1PGtTSaGN1N/TYR4xu7WKZkX5h2LXMtRhCPURXGikuw5wTyDlFD
e7PNc4ha0kVhnXrKk5XGDGHHCtYPQRnsW4A9nbFnJfb9gA3fQyeJ+9/QPPQt
y3aN3cZ6R7lzr3/ryc+16D/C/jD6R5L785AdYOUR9iNYX4T8FafrQ7n6Fpvf
l6/48DLy2jLGCr3RBzLuMeo17dBedCVO15swoo1YjOFOR4n368jdXPI9i3z/
QE18mXCPU6/Tv3msX+b+WOJbjPxu1OIx9O8Mv9lX0f8TPv9abP7B+NuBzb83
+o3prY1K2Rdh8iR8PbPSvVE9spn4JpE/hLMP+ZdiPbPBslbC83XCNaBamIyO
w/AOYf9SsZt9Nee9sGlHZ8fscvSn0ZlfbIyby35w2lhxFfFoqzMmChvz2fdH
1y7+5XRyD9tdZx+kXzPAcXxrShvL9YybSo0pwhZh2uGB7sHqxepZ6l19kVlf
5Pf1T7UxQFggTMolN1+ljS3y4WvWYwa6t6gexuNfEv7BRcY8Yd83CedDGDSH
sznVxjq917msGzPGAuWkf8I9Rb1FM8DICr9ZvUdhVDZ12VJpfmHmDrCzqLfx
5QPurKl1D1IvOgtqoX7qMs6NMDEn4ZlHs4965D7Oi+scS9WAakEzQulpTBI2
qQZViy3ke0TKb0xv7U9kXI7s9fWuBdWkalOYJWxRza9G3uBS9z7VoGpxT7nP
hanC1sdTnh00H7xZ4RlJs5J6fl5Pzww6E0YIK/L5t6bIGCesa8DnO7t5JtFs
sirtWlNNXo2uc+DZV+Iep173eC+/dfGk4R3W6LerGW54ozFH2LMfnnPh3VRq
7FaMl6B7da1jrX0fbNtYZWwTRi7MGFOELerx6vV7mX/aoXW84zfKPNNpthNm
XIDv9RnnSj1nIOvLMo6tMHkbsU0nbIt8kC8PNhh7NYOuYD2fHD3V1TPsB8Sz
Df8fgJYKt6CvEn6LqulW7lfXedYTJtewnpw0FgsDb0oa01TLmpnW9ffMp9lP
Om5nvb/Ws6VmRM2KrfjUA9u6QxOJXwv70hLPJJ+z75Ry79QbjZRtkm2a4TTL
iUe84hHv8Rpj27f4/zr+31rmWUQz1Pq0e5R6lXpkF3jfTng20ZvT2ztWY17V
pGb52oyxVj23hnU7PKg9ZfNe1vdXGBtVU5sb/Cb1NtXT59YYA4QF6il/V3vm
0OyhmVqz9YSUsUkyxwv/U34rmimHpzwDaxYWxgnr/gdpx9bG
         "]], PolygonBox[CompressedData["
1:eJwtjs0qhHEYR48ppqaXxnfmS6PJvDWsrCzdgkuQsuMabFiy8pGF3SwwGy6A
kpRizcxOisWwUKRmYs7b3+L0/Or5OuWVjeX1FJCVfmmWYNFwPQWP5ifZnYQd
OSzA2oDE0BiDM9mvWiN71ouJkA/Ml2W4kgdn7mV2Gu7SULEOzkAkw958cT7y
Xt88nCQS1q0abEs+Dzm5HYWbDNQrUP2/k3b31d6btPTa1KtZCPPJXrsIR57r
5uDd/FEMPonXnn6n/j3XNxMHh6E4eCa+f+78yqc74/5KOfczB8f6Lfj3y/wt
XW91ZHUElvz17N8er+c4Ww==
         "]]}]}, 
     {RGBColor[0.5836689725375516, 0.7402064859506455, 0.37948046516652423`], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1WHlw1VcZvZA04WUhycv28l7ykpe8JW/5JRBoZQmpAi0WWrWgWGTslEIJ
[encoded data, 4140 characters]
8UXsWhnSHXsR9p+JCUuJqbQpbRsL6r2OstKvN+xb0wDI+H+20SjA
         "]], PolygonBox[CompressedData["
1:eJwtl3lw1dUVx2+CJGSH8KIhG1neS/I2luAGCUGRpQLalrZWae2wNSDIpoCC
oQFkE0qdkWpFnWBb24rgTCt7S9tpp4LTDq3sQbRTC8UZUUKnA3RB6Ofrlz/u
vPN799yzfO/Zbs3UeRPnZoYQsjJCuInfrlgIy/NCyObPY9Cv9guhuEcIB9nf
An1XMoSaohB+A/MI6NMlITwF77Le8KRCWBoJYSLnv8xaxfmCeAhnc0Johicf
ekJxCLCFVv4bx/kv1COLvWmsHZLF+a9w9ieFIexKhDCsLoTdWSHkoW8o9GIO
D0bXaWzqURnCuTR8fUJ4Lj+EWQ0hdPDdyPcP4f+0NIQTyNiHrOnIPw49CJ1f
y/OZj+B9hv+WF/rMRfhjfA/k+21WNf62ou8/+FvBmQb8uYL9sZ6cw4YT7H3j
Zvv+FOsA37tKrEs+bcK+9/luhz7EOsD3JPjb4Z2Dvc3YW4/McmQvA9+mmhAW
sErBJgv/5kB/Umpfnu8Vwnewt5a1sCCE34NhDfRfwOvPrGh/7GLlYPM++Kdl
h7Ca/Q3SgbxC5K2HXoK88exXIu8Q93GadQ159+PvO+y9AT6X4D+J/Iv42lwO
9tC5YJBg7yz/zYKeCQaT+oILawr7eXz/E92T+plu4c7OY9ffwTMfAdX4/yH0
yBLTh+H5oCKEv0VDuJBrfDaDTzbn92DfZOzfCX88ad2KqdVg9Wal5UvnduiN
YNSQ45hqxrbvo/MIWKbw91Fs70l8NYH3y4pp6JOsGNgvQsZqbB+M/9/D/wx0
DiG+nqwN4TNs/wHnn4DuQvB6zq/kzIPg9wCYZhArHegbwPmcqGM3yv4JZK/q
a1o6pGs9PqwA2wbOdIPvFGRuxN5e6HzwlhAeizuWd/P9OPRzZdiKbe1g8gKy
nuDMv9jr4LsJXVUR71/Cxt34vw75HYWOsfs4m4BnUaZ5ktBl+HQOfd3oGMr+
K1UhrM12DreA1xa+L/c0Zp3QX8K///Z2jDyJ7rON5A3nByLzDHSc/T/1tryl
YHNvnbHW+bHQe8AoxvdIzuxtcE4oNxTziv0VCdeW7eBxJu0cU64pRopjxkhY
KSeVm31j3puC/Ivg8U3kXc30nZyC3p1wrVDM7ICeA/898ANPeBQ6SfyUYUu+
7gt/o+g8yNnz2Phj9qYhcz7+X+O7v3IDG0eCT4TVXemcVG6qBoxA3/3IuDvH
GApLxZBiSTXwPWL7k0qflYw72E+i7xD63kX/VHivcwcvZZrnArxb0bcKehA+
r4F3HPttmb7zPxIP5eDzy0LXsKP493NyPDvD/x1TrcKHPkXO+QHQXdiwlPNn
AWB2vWu0avVg5D+D/LvKjV8xPszAt3Vp78kG2RKtcO4qxx5Cd32xeVXzVPsK
iIF8Vi4rr9E5Lv4X2F+D7ePQ+bs854RyI5U2tu+CwQDomWDwgeoJNo2Cvyjm
uz1AfPeGbo+410Tgfxi8z2D/a/g3TPEPHoXkT0GtbZAtpzizAn1J+BfA/0iD
a0cBOlfiz46bHZ+52LiZvXfQP+CGvm3Y11LuWqsap1q3Bnklvd0j1kI/W+Z8
Us5ORu9DDa4F4hHvphv1Rj2yM+aapNp0DzYvxvYNCdcS1YDvQs8ot23AHNqg
u8mZh7GlE3mtta6BqoWKgb3c5aKkZUm/aseBG/uqmR9i/0Aw3YNv15FZTfwu
5b8lrHbWMtbJlHvV/zjzVWw/BR5bs43HJvS/Ac/BXGPSVk194f5+iu8vE3+N
yNuHfa25/q8de34Nfvv7Wod07YZnvuIL/6Ziy/C0a5nktaQtU7R4ZlQ7ZhQ7
6lnqXbfD04V9nZwZzf12EWM7g2tOJ77PZLUUGZ/LKc8kqh8d2HMCOgOfRnMf
R/hvAnd1POY9/RfYG1blXFPODYV+q9q9VP3vOLm0jhjvT+wm4KkAmzPF7q2a
WX6E7gt8zy1yjVCtGBk3NophxbJ6hnrHPHi2wp8BpqHcGAmrNyPGWpifQv94
fM8pcI7cC9YLwLQzzz1oUNw2yBb1xwrkvFXiXNrA/Y6Fv7vYurYj81Zi4XSF
edVT7y4xBsJiCWs89G3c0SVk90NHXcw9W717Cf5vAItVac8Ke/GhF1hMq7eu
xZw/grzjYN4Blr/lDo9B/yzpWBMmr0Ofx5+2AvdY9dpFxOjzOe6PL2FbVr17
r3pGI7omJLynmeM+6NqYbbuMvCvY9jTxdL3A+++Bxxp4IthWpnyELqsyPrqz
tdg7OWL/9Z/2xnBmC2dfZaWQdQ2dH1PftiDjPN/N2Fxe5JloA/UvyX/5NzmH
hsI7Nu6zY/B/NPiNTvr+VENGQZ9RvN/oV32wfXiDZznV3BbokyXGXj68j6yL
2NTN6uQut5RbpmRL55gy35nuTjIfx7+suHutZrzsuO9Yd60efq7YNUO1Qz60
YE80Zmw0Q8agH8CGFdgziu/5EddQ1VLVfNX+djD+Vq5rzqfE7sU6f6t+ry1z
jVCtkIyvQ1dhU6LQNWIrsVSJ/5/18Ew+EPv+nXJuSt6VlHucep14RiJvT41n
gRb++yL2v1jp3jSc+2oCl39EHa+q4arlt/O9Mtcxq9jVnenurqJjYtozkGah
5awh0GvT7p374RkOHkewAVc+j9mj0MvJp2fzPQMsrHFMKbY0w61Edorv9QXu
0RWlrkGqRap5qn3DkP/X4JhqVq2t9OylnqDekE67t23jvznc5a8SnrU1k+6H
HtfoWU/8h9l/PereozfGLvQ9lnLvUk2bD/10wr5qBtMsppxQbuhNdjLmO9Xd
asaZzfeIuHvpK+gYBZ2OenZU/qag76zz20k19g7klUZ81+rZ6vWry/ytGFBs
NCRcy5XTH2P70RLL0jzZRi5Ph6cruCerN2uG0iylN8Fr0B+h82qW7/Rc1DOy
8l01YSG2LOM+cnr4TmYSX9OReTjPNVG1cV7EtUbxqllPd6q7rUJ+a9JvML3F
NPNeAL9bo44FzUSajTRDCF/FbP+E34R6G2rGfYT4T8f9FtWdD4i7p3/eW7Fx
I1g0gVFrpt9AQ9J+E+ltJJ/+UOk3rd62eqPqraqerfhXj5qNfRPj7i2qWbeV
usfoWzG9ua9nXs2+qkkr9b4ttm/TyYdZ5MOFG/OA7mNb3DO2Zm3ZNLfEMaZY
0wxbp7dvg9/Smrl36n3CflOm38h6KysGdH/C+NtgvaPOs5R6jnrPLQ3ujb/g
v1Lotir3At2R7kpvBumXzDvLPFNotnhRs0qtbZbtmkEH4ktH1LIkM7PcOa5c
15vqbfD7P+81PrE=
         "]], PolygonBox[CompressedData["
1:eJwtkD9LQmEUxh+D/oJlal4ifcWL/YFq1qGpTxB+ggpSaCgiWlqaC4KWoAZt
LEe/QFMtjmlijX2BosEaovq9nDv8eM695z3PeTiF7f3K3pCkNAzDcVJam5J2
lyWXlfJwHUpXEFuVNuid0dtZkjJxqYYWZqQQtqg34SKwXpX6Nmkzp8yUUlIZ
5vNSERZhYURqp22P35diT20cmJuO6gQah0noZ6S7UenZSQ+z0iN8OvN5m5Pe
qT+c/ff9V+om71+Ya+Bfh0N8LvE9Ci23z98hS3ZMekK/c+ThGG0yDKi/cpbb
5/9dwS8h/aD3fLcmpJMih2N3DG6gAV1nOXvoXzRzHth9/J28p/cu0V/nXRnt
RhkOAsvp8/4DZQQ8LA==
         "]]}]}, 
     {RGBColor[0.6325251078123928, 0.7434301472115933, 0.3434109808873855], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFmGl01cUZxoclCQECmpBws5Lk5ia59yZVEZBNUDYVwb14iq2yiFiprCqC
[encoded data, 4320 characters]

         "]], PolygonBox[CompressedData["
1:eJwtmHd01eUZx18gIYQE1Jt5k9yYkNzc3JvcWobMSGSIFUErrqP2qASBVlRW
y4ay4QiouI7iwoGrnp7KduColoJasSyrYgUhVukR0KJHdj9fv/njlzzv+z7v
s9d7K5vGDrujdQihoVUIGfz/fTyEQTkhtAOeAHw730Ws3+J8DHCyOITHOnCW
GcLAkhBqIiHkg3uA9ejKEKZ2CuGhNiGsAufKZAjdykNozAphBudDwR+W9Jlw
JhaF0KcuhErgo5w3AO8pCOF0W9/R3SMVIbyGMJM4X5QXwiVVIZzJDiF+FvzB
HwC9PfB/GJoDga9OhDA7N4T5fBMLQ/gtNPZztz08ZrEegAyZKLoUms9COwmN
LM72gZMCnoeOv0bfbOjXsp6TCmF6R87ODmFcfQhXpEM4ATyDvSnYYj40RyLr
U/C7E96rKkz7L+gwEV3+znkf6C8GZzXnM2IhPIItH4bfTOAva0O4Edl3gfMp
8Ch0/BR9VsH/APxXIP8C7taicx9sXY18K5F/FvwXIdsW8Le0D+FxeL4N753n
ojO8z8Kp24FLkPEEtNex9yTnI8H/JNgGssUs6A2WvuzNBG4VRT5or+B7HvoJ
bLoI+ZbxlUPrGPL8JJuWIh/f6krrV4u8g5E3v4Z1e/PIAx4S8Zl0kC7XJBxL
8tG1wNOxz13AhQhwO7Teh9/Rlvh4siyEvqwfYn0BNDfi+4Hgb2ttGV9AvpXI
8ATfbmh/zJctG0Lra3hkAc8Dfzn0q9hbCP0cdPgj9I6y7gK9CmiMxRZp6FUB
R+A3k/MtyN8O/1zIemBrx1c/4Bn5jvVb0Wcs/CZAf16u9VHsLU6Y1zb4LwL+
Mz74CPp3sddEbtwdMbwXf9wD/X/jjyGtHPP7qkMYznpbsM/6lZineH9MzJ1P
7I1Bp2WcF7B3O3C/UuefZLgeft3Sxn0OmyfQtabFfx+wF2XdgMwDkf0TdDoR
sw1kC+ncnvPhnP8myznTCO1zOtmeV8BjdMQ0RXvvOcQCvHpy/xjnx/l6AS9O
OdefQudD4GYRT89g26f51nC2mxi5gfvvgb+rzjGr2P0C+Rqgd61iBP5nkK8b
/PsSQ6+o/vCtIZ/eAmcsvGdw/yD8DhMjO7HVCGiMhNY6bLAp1zGp2PwBHQuh
dyV7Q/HV7zi/B7hU+sDrfHBWIOtMZO4OfEPCtUMx+gCyL8AHP4Jbxt6HyFIa
tT9z4bcTfUqQ4dZMx8tX2Ode+O3Dl4fg2Yf6tgnnlLDexDqHWLilwrI2cScN
7bdLfT4AfS7n/vPVjkfl9J+AA/77Bl0m459s4ESla+FS9mqAm9krAncBNn0H
eza2xItqtGr1I3nW7RA8e4DfLmlaL8KzK7IerrItZdO/po0jXPlwBXczwP8a
XpO4k5W0zWQ7+XQt+reudWwoRjKAx5S7Hj7P+Sucz4m7tlyG/+YCt02a1v3w
vwp/DsYGk+HVlztdy/0JbuZ8I+ePRV2fFZNNnC3OM756gnrDhkrbri8464HH
wQPUn3vYeOAUPj+fjUu4cwRaZ+qdO8qhk/XWWbrLx99ii3/i46Ot7O/twHuI
r7nIsoG9m/BlZ3D+B7+T8OuC/RLQ2H+WfX5fzDVTtTMNzQC/EdD4CFkuAmcy
/hlR6l4kGzbxZ2HKtbwYH06Cdn/lXBvntHI7hc7dsyzTQTaXovO0do65nthu
Yq31Ub0fB3yA76aWfnKC3O1b71w8yJ1G4PugNzvLPpKvViJjCloFyNelzjVS
9Us5MhfbjS51b1YNVS3twvpz1hmqL8TrvJR74XzWw7Bl7yrXAtWwi7FHDv6e
0sExrFgen+/7yvFr4P9O2raXD94FfqnQvVI5vJZc/A858D22uRz934k5JhWb
f6BevI4+yXL7dyf2n8J5b9YDWurbYdYT4LlR9ROZTmOPCfXu5d9Bczzw8bRr
mXrMHuBx4HfK8J2JwHeU2z7yyWJk68De1BZ9itSPio2vGjZe+YF8n6HPs9ij
GXv2AOcneGeDMxB5OiddbxuR75fA1xU5l1VT1CtGJ9wL/4a+o4DHFRhXPasA
/FTatVz2Va9oU+j6Jp17IWsG66Is1/g+rJ8gfmcH91T11h3Q2048ZqD/MGRb
n7C9lT8fcHdtgXvTa/h0F74trHKuqgYUAJfne34RjVHE9pKEZx/NcEuIndVR
w4qx++FfE3fsaWaJA68rcK4c4Xwh+i7lzibOXoDf6/B7LWVY8anZam+1a4F6
pHplnfI10/lXhu2rU7a9auZa1lNjjgXFhHL/VzXuHcpR5ap8Jt+NZv0U/mkN
/oNtHR+fEc/XFHitHFOudee8TYZ9IF8ohoQrnDYx11DVUtWEb7mfwsa9W7vn
1iXdQ9RLTrH3IHDuue4FVyLDDtaXFjpW5bOe2Ou/ndwbN2ODfej2aNSxoBqo
WhjDBk3B/nsD+ddUWba74dcFfvsj1m00NroO3Dz8c4X8A41m7P9y1LOJfCRf
DYq7/quGDwCehn83t/BbwHor/tnCt5y8v7fUNUu1qwQeveE/pMy++RAZhgJ3
q3ZvHIzNulY7J+UPzbvLqFfz693PpcNc4OUxx5vioYFcOI3N52Q4308CT8Wn
P3bwzK3Ze/657q39Oa8tcwzLFqqx2/HPXSXmJZ4rWY+sdW1UjRwFPLnYsqmH
vIe9NmHjFzt6Pn0RXyT1nsl2jVKti9V49lROlwG/1BKvuvMGdzulPDtqpnk/
4pqo2qg3023YbyY2eDLb9p8G3D/pt5PqQS2ytKuwfJrZs4GH57vXRJHnFLZ5
LuJeJRp3Yu+u3L+ng98XDZyvRsc3c2xTzUpfV9t2mgm+qbZNZVvlnGYT5ZzW
srly/ea4ZRP94cDN1a6NqrlfAZ+qdnyqxpwGPp12rdebaC66X1hjX4h/P+Ct
nUxLMm+M+I2nWV4+/AeyX6aZoaN9vBX9O1e6NmgGa1Ythf7ms11vNHucl+fe
OFM9JuWept42HBkexx7/ihjWPHUVuAtSxhVN0VYOKBdEsxLatxU4X1XDc6Hf
o8Tn6lHtk57x1PvVbxdyNi3i3FCOjKnzjKVZSzV1P/jrU55tlTPrgOel3fuV
Ey9j66N1pqce9z1wUcKzqOyp2v1Gnu2vHM3n7NWUZyfFmGJtTcKxqXl2C/ib
6t379AY6hawnY44VxcyiqGNCsbGEHHymwjVGteZS+J+d5x70cy/i/nRs8WXK
tWYXe5G4ZyTNSpo56go9s2h2UYxdDL9BMb8l1dN+wDaHI5591dNeAHdZpd+q
kl+1fXbcs5/e1JOJ7QsjfrvrDZ+JPK/Gnb/qKRuBx1e6/7EV0hH3UPXSBjb6
YO/jyNCY6/zVLNhQ6re73pB6Sx6rcS0SzgngeMq6qT+sI752p9zb1G93pDxT
KF8Uj+8CD2FvaEfH6BfwK60xb73Jo8DF1JtDbVz/o1V+o+itopmzK/CGmOuP
9Fkf8xteb3m9iXtC7xA1a1Xwm0Vvl+Yix7N67N5avzllT/HIBv4sadkk09CU
f5PQbxOy0R3Yalrcv9XoDT897jeFckG/KeyD3it6b+e2vEHynSM6b+LSiArP
sOql6lljiIc0/Ja0vA+UKxu4/2auZwTNZo/C48Ycz4ud8c+BSs8O4vEquDm1
fnvrPdAB+Pqoc0kx9R3wjdy5Ptvy6O3zdIXjVT22Cv9ckPZbUDOVZrH1LfQl
w0bojy90L1V9vrrcM6ZmoaXIfF7SMkk2zWwngG/Jc29UzVTt7FXn3qUZdxG0
y/Ism+YFzZL1SdtDNvhF0jOx6Ennx+P+DUS/hWgG6Y+ty2ucTxch0wzslVns
2qWaksn9j+v924Dm+d3AN7fUd70pPsf/sWLLrnlBv7V0T5uW3tQ90v6NQb81
SJ8non4zKVY04+/Hvs9VeR6RvZ4F/j9oOs8L
         "]], PolygonBox[CompressedData["
1:eJwtkDsvg2EYhi+lxDmRar9GSeqQRsx2cR4Y6G4wmdhIWLCx0Y0IBgmjX+Hw
AzBICAYJAxaVSLjefB2uPE/e937u55CfX5pdTABtkpTvLnitgusUlM1/5KUD
nuXL/LwOntJwkYfxaij5fml+JRu9sC6pAsw0wZS6M41P5aEfEi3waBztgREp
2WOuEQ764L3bnvXwZszoGcmu7MjYAPS1wpA+RetPmmEwglW1a5K0T9a5fjth
KwvbMqn/n34TlV6hZ3gP/2V1GfU11k1L0VmjQjx72OHWPW/kLh3veFyZJ8w1
3A6btXCfi3uHGZb1jhpgxfhZudGH8VD9keyrWbBmLxffItzkHwYJOnc=
         "]]}]}, 
     {RGBColor[0.6821836640031358, 0.7428554792084001, 0.31311164866224106`], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFmHlw1OUZx18gIQlJQHJfm2zYZDe7m4CAgBrlroqiVq1FWiiCt04pCaIg
ihWwREZt0YIKWAVPqMcItiUqTFUcPNqOV3FGxQtSxGpVhDqgYj/ffn+d/rHz
vPv+nve5r/dtnPWLs2f3DiG80CuEPsDJhSHkD2DNn8OxEKryQjgEbO8bQn1R
CN0gv5EMYRpwXXkIrye9/xpw1qAQ+uWH8FhDCPOBD3NmL3S6qkLI6R/CnnQI
u9NeP58N4ds4ELwjwM5UCP/IDWFibQi/rQ9hKOtN1SG0VpjnptYQhiVC+BJ6
hdC7AhxIhNuBOeCsAWc5+OM438PZ8cAT+X3EejRwFb9h4K+GTwBvUw7yZUI4
Bd7TwUnUWI+fH2V+nc18wxZXAtvAa0Xmxoy/bx5gnALschc65gPPKWUf0m+V
hLC4yfLUwOsw8m3GhnuQ8Rl0KMDOq0utv+zQgz029LW9ZKu9nN9XEEIcXROF
lvOWPraFbPIEcCF2f5IzE+G7LG47D2U9Cx33g3MBcFljCA2cOw4+LyBzR3EI
zyJfGTK8Dk4MnO9iXs8sC+HdthB+NxB5gVdD/3541+DTc5DvTuRZgG9flA7Y
aDN63YddjrD/A+ScB/468EeAm4Tve+iSAl4Kj4PQX4kN6qD1ADgx4DdRXJ3A
fj/ODMZWo7D/mf0dDz9C58vR6w70ygF3CzwmgDMa3C/Y/xY9urBhD3GwD/yh
8OqK9L0fGZdVmUYxuP2qHDOKndv4/xg0j4Xmg6w7kG0CfEeg82rsMy5tfy4q
9hnJm5dj3mVp75cCh/dDXmTtRo7BGa+3wKc6abvVAoew36iz7G9j3Y6tHkHG
xfy+lM2xzXDW/0T+GLbs4XcTZ0ux7fCYfZUPr7PyHZ/PIc8V5Y6VYXz/ijg4
lf39wKv6eH1BsH/GwKuJvZcq8R/nJ6Hro1nrUolsv1fssW6POW4UP0djn82t
ju2v+D6L/98TqzOAc+D7KDgjwT2h0vxWxGx32f/GjHNAtitB5hvR4R7k+BXw
Ms4+xP4Qvm+F7vXQfwZYkHZMBuDApOWRXO+hhwrRs/CexvkboTMdeDI1ZScx
cxLwE/LrK3zwMWd7VTm+4/jwfWTrZl3GujblGFMNm4BeD0I/q5itc5714dyh
hOuY6tkqZFlZbBs9kLCPj0avFcWOE8m3Iapn8s1K9GgFZyPrWJ7Xr4I3t8x1
Yy68tkX6xojVe8vN61birY1fivWF+OVldNnF2TdLXWO13sK3V5pcYy6P2YfL
+/rMrfy/Dlm2VzlXzurvWL8tZr/IP+XIv5sYqEi4fhTnu4Yol5RTl8H3G+oM
n8NQ4KA+ri2qpzfA9234nE4evUV+9gf/XmI1U2G5FqjmYNt78UsX8PM6y/Yv
4EFo/Q0aJ4Hzab5jew38c0tde8fyvRd4Q8D/iLPXgbeT9bXAA3z7GplHItTd
xHQaedYCXymxjQfhi1nYtB3b7gVWFxgHU4Yp5dZLNWPhINcr1a0vqi2zZJcN
zuhrOxSAN5z/+aoP0fpO7LYr3/1L9l0NnfXQ+RA6pUnXt7KkY3ZusWvWLUXu
LznQnFZrWY5F3vHgPQ3+RuTqbnH+NvNxacr1UHVxIfqshc/H+HFjhfN1K3t7
q2yzfuTWuIjO2KTtrbOqcW3NjmfFteqL6kwrZ+cXeV895okG67ykzTkqmjcg
X2e9++wi4vRxcAr59gY+v4rznerR0HuowjGxtNZxoHg4iI8mR2vFSBa73IQd
MsCJCfeCU4Czod3F/mHOj0SHz6A/otE15qZovwI7nI2s5SnXPK1FV3kkGeRv
6bo4z3LMzHPNlH1VN7W+GfmPz7rfqe8pRhWrX6Lfw5H8Xeyl05anBRinvzUM
tI0mtbq/DsOWl+XZJsqHR0tspwPgH0Xcjmb/DeLoUNTHvxZ9/DqaOrMEGj9J
ed7Q3KFeolpxUannDMX8eui/gA/mwHcfDLZH6+eBP8w4f1/G5lOQcWqxc3x8
kfP2Zvw4JoqrmfB9jf0p2Hk3+/PRfzvwZ/WOFfm3Gl7vtpjOh5WmOb3Yc4nq
4pRo3dno/JkLvCfjnLgQ2T5oMX4PZz9ssSyqVU+lzHcP+OsjfJ1rqPX8oJli
FOv3WU9FnquaXcPn4Ycn0W0wOjaBv12zHDo8Dr3FrbbhUuDSjG0+BLvl1jsO
HibmP89zX1Ndq6p1ff10kGcOxdu6Zsf2p1F8z6/w3HocuFv4Ngf/PgXsSw0+
udAyfVbm/W72Z6WMr3N3Vvv7lazPZf+IZkDWK6K8uoD1uCKvlV+b+3pmyIfv
iWn3juOBCyIZRLsn6/1L0Ou0lP0Z4D8KvNvZHwnck/X64lLPH6I5FpiH/XeL
F7Co0ut81h+kXZc2EKfLSj0LaSbqk3Zd6h3Z+7/zKrKNrHHPymE/F5x54OSy
frPAa9WxvyDzNuj/ERl38O16zu0kxz+Gfm9s1avZ/fBPxabZkfZ6IrgzyuyX
d+tcS3bl/78/Cd4S87wrm40ifmqa3Rc0+8Si+FnS5PqqXqs+OxZZRhd5/hhe
65ngmFrHumL+Lnz1bdL+mIzMM0tddzLk1IgoDhWPusecWWh/zG50nW7RbFPv
3qE+I1lUo1SLD7XZnylkT/Bbzv592Pa8es8jd4D/42jdgd7TWU8lRqfVWzfp
uAZZmqqsh+YaxbHiOb/C/WdspJfuG+oL6g9dkR8Pg3t3NFerpkqPc/PMb0WN
5wfNLIpRxaryrKvC9Wt2vfvqHM5eyrfxjY6370tdv1THihrcrySzbKGZRbKp
3qoOqh7eR7xvyLgGTVQu1FuGjij+tS+6pxN/7ZzbUW97yW7HYL94pfn3VPsu
p7qqnrOS/0nWP8Vf30W+29rqOUByv13mufXpItPVXU53qFz4djQ7f+cAx9XY
1/L5g9jiGHR4CDgjZZxO6LQQi2OguRR92+tNR3fEuRXOa+X3mrhnlfNLzfeR
/u7B/45mnk1llkmyTYJOd8bzke6dq+O+E8yPZtuufNNSv1TfUf8ZSEzPRraT
M84l5VQL+v45Y14D0G9d3GdrqlxTFR+KjYXoeRq6XAM8vc77k+scx4pn5cC1
Ec6VyPhJmWfHDLLtr3Cf2ImOiTrv/xX+B9OukZovPivxDKt7xjdJ59qhpO8V
mnGHYs/Xm5y/mjevjnrNL+F5bFS7VLcWN1ueGzSXRTVQNW9vNKdN5dzMaH0+
8O0W96CPWhwLuQPsjy/K7K808t4c8z0miy59sVPvgZ71Vb9UxzS/606gnquz
yjP13LGsp7QZfzm49zS7n3dgh3egtZEY3lXv+49m/CQ4v4l4/Rp71DW7Bmgu
uyjumVaz7at1vnu9WOn7pGbtidhmWrFrqOrnk42OoT9Ed1/VQfl73//uKU2e
4zXP6z0jG81vB6p8J9Td8KmMa6hqqXrdumie0QxeXeW5KZl2LVQ/U/4ns7Zh
C/IvbPN8c02ba5zye0mz7wGSU33/nRLfWXvHPF8o35XLQ6O7wFrwX0KeU8Hf
Aby/zn1ZM1GI7muFwFVRLiun92d9ZzwAHJKwnAMTvjuviu5Tiyo8w12KLlcn
PJ9rTl8f6aic03wxfIBzX3Of7iPKpZxy58Qj5P3WMs8+3fh0U8q1YkeFZzrp
Lv/JrvqvWjw1a5rnAa9r9tvWomb3EtlxCnyP4JvA/nfAwXpfQo62hN9XtFZe
627RU2DbVSe8rgK+VOU3izOi+31qgGvEjOjuLNkT0dtRPOP7j2bC2+A/KWv8
U4DzyizbReiUje5Zurv8Pet75s6s+7NsJPsoVzQbaS7qLHfsr4j7/qS5RLW4
JKo/qkN7Kh2v77f4zUi6jUo4v3XfUQ6kWx23uhNcnPLd5hLghJhpjo/53UTv
J6OAC8pdA1UL9V6l9wG9mSjuxVf9bG4k2wNx91Kd1X+9DeyP7jLlaZ/VG4N6
1LY8+7g9emfQvVYzk+JUPa24wTgHKjwDaRZaM8jvC6rFa+OeMdujNxD1B80u
8l1hg2krjp7n7HPgfMDZ1nrPmXpTGRNzzOq9RO+Yss/USr8VKmd6VfsdUD5N
A+/OOr8OQ+c/wGjn4w==
         "]], PolygonBox[CompressedData["
1:eJwtmHl0lNUZxi+BkM0kmGWYLDMZmEyGyQJatlJUECwCblWxiMJRQ12olQIR
BRVaQQQ8UosKqIACori2R6AtuHDcehTUHrWWtq6ARMWlFQutoEh/j8/3xz3z
3rn33df79Wr/5TlT80IIZ3UJoRu//6gMYU95CMO6h9CnPoT16RD6F4cwgPUg
8K9iIbQXhLA/P4SL60I4kAvhRvBWgnwQONsrhPcLucd+TG0IXzeFcNIxIXzL
nUfZX5cJ4bSSEArg0VIRwls1nEPrwqIQPgd3NTxa4bWM87+1hPAYdx5l3Ycs
a1hTuPMdAudz3sT5Ov5by7q6ZwgzWZdnQ1gCv25dQ5jK3Tfgn2Q/FH0+rQph
NDhZcIfC73HO+1REtJDha+BO5LkC3J3oeGoD5+i0qBRanA9H/oXoDInvaYwB
eAt7vVds+mnkiCH/h9DexJ0uCeiCfxh6i6HRAnxs2nvRzLE/1BsaRcap5izV
FsKfe4TwHPjnQ7sL9srDXm+j89HGEEbAvxNZrkS+xfjienhsybMMOzjvRKfx
0HoDnb/ifBP7YeyfZv8y+6Hc74ZvhoMzozqESmSYiyx3I/8E9h3wGx35J4t+
g5FpM2d/QZ6D2OdAnDgAfxb0ljaHMBB6j3O+Dx4fcz47kmciaw30PuH+Ku6n
jkVWdJuWtOzSYQ7+OBUaU4sdLy9xdxL+W3CMfSxfr8AfzxGbAZvdBXxdm2lJ
hraMbSLbnANODNw/srbJ36Cshtcg7PUBvMbBcxr6z4iZtvhfwN2lKdvid+hw
O/AtyJAH/e5l6INtvoLnWO7+G/wFxMOL6PgCuk7iv7GV9oH0+Yj9SHg15+zr
h6D3c/RfgH77Cp0jNwE/0xrCychXhE5PA5+CDiNZd4F3N2sr9LewirhbzPor
+pWAPwd93wQ+PWv8W8E/DfhE4ucE1ihonMra3dvy3QL/L4nHJQnjTob/rQnL
JNlmQfMW9J2NPRuOtY/OJL5rMs7lzzivBd4Fveeh9zz2f73eOkv3szkfBf6m
rGOrkfNHsMUzzYaVX9uAP0Gn/xTbpuPh1Yf/HkGWGdj3GuD5Gefqi+hzLfHw
64zhs4jBecD31Ph8AjaehD/3RvEtH78Kv07odyuzv2amrZN0exgdr6x2DCgW
nuL+RmR9KWZYOaHc+KAPsYq/+hID53L/NerFVT1cM94EHo7NCrHHvcj/DvIn
+O8BZBvJ/S3wG87+qRLXTNXOlZX2rWwq2/4enlsj+zwK7/vROc39JezXAd+v
mCt0DHbAP1fv2it6TcTHHUnXm+Ox+Z3AY7h/Lvez3B9b7Tu6KxlGIMsBLm8q
tw7SZXLMuaqY+Zb9z9LmfRQZ24GPa3Z974WO/ZptA9miA5t0xbYXZl0blTMd
0DoOe2xAvsXIUEeu3MwaB+467LmL+wNYS8FdizyV8JuQdP4ph88Hno9NSsHd
qGaDb8fz3/vR+U+Bz0SGs8pMU7Tz4pZlOusovuokx/ay9iDLh6xLke90eHVF
p9nsy6H5WJn9u7mXbS7b679noV2Rc63bz3/F0D4u7XxQTe4H3NzmWq99DedT
ku53X/HfEuKzdxS/rdBLN7vnqPdswG8P1bvGqNbIZsuRpTDnWi75i4B/gQ5X
sq5iTWUd4P62AvdA9cJmcr97uW3SHz0b0pZVNboq556p2qwaPYP8GMJ/d3K2
nn2N/JtybCj/LwWexv1p2KIf+4B8E5C1GPu/x8pgn3/V+65qhmrbkDrbUjk4
C33/EPUP5dAZnM+qduwX4J9hCdMQLdWoC6B9AvIsL3WO1CPPEmS4nrMV8BgP
7mTsOQl996DfbOi3QrOw3D6cgz43xHye4/xe7LGNOx92sY1KG9yTpL9miBu4
fxn5dkepbSBbjGmwrurhKeQpiJu/fF6UcI0cFdVc1d5Us33Zl7WZu0/UONfm
wW8Fsn6G/T9Nu8aq1u7BZ+NLbePdwJfDf1mpdZbua6vd+9QD1ZtPytleqh/v
ttlGspVmpCZs18Gqwb6U3jAR29+Yce2TTWSb+dT8N5FnJTTmAX+HPV8odI5s
R96dWff6722ErVJp92LFjGKnCp5be3geORdZN6Q9y21l/w70ExnXetX/euDb
KtwrFCPtvT1zafZ6BT1ezTmGZF/NaxdpdsIG3VhF3C1mHa10b1KNG9PqHqra
rBq9CHlvrfLsqJxSbv2wwrrrv3m9nGPKtfvQaQG67QDn7DLrfATd51a516rn
apYYDv17sP0mZLqu2jGj2JFNZ0DvUDR/DmeNjLlHC38K+Iti9rF8fZD/boP2
oGie+S/4A7HVpegzPd81TbXtgWhe0H8PptwT5Fv5eDb8zyc++5e7R2kWWwS/
3l1dwzU7Lkual/7bAP/DEb56zKE29zDZSz1zH/7uUuNaOQL5HyZWp2MTrnyv
wwzglqT9pRmlNemarNqsGnYyhl2X8l41ewryXYyPh+KbxaxO4CvAuaTAPhiG
fPsrrLtsoNluNMy+Y/8DzvOxxWR83c7qYF3Nml7l2n0eNM6D1qiEZ8VF8FwL
74E59wLNnI1xz5jKReWkasPhaP5VD95Lbgxosy3k04HAb2OjR6BdBs7aOr85
FCuSeS5nJ8AzXuD8GCoYHgsLHQ8jkaU2blmkv3rXmpTPNdNer/k3a1tohjw9
5hgSru7o7s4Wv0VU81/BNq81etbfyv1XgPtVera7Cx2uxVbHpz17qOZ/wf1j
GlzblZ8lDe7Zqh0T0O9d7Le7p2HVlH+yz9R6vlI91ix3U4PngWs0U/X0m0C0
P2Y/iLtd44bVwxam3CPVa/SG6BL3G0S5P4n/dql/9jQsfm+zr856dpYN+is+
Ku2//fDviy5boDG4zDPCA+xfiuYpxfgEbLMqZdsKZyXwFSnXFuH0JV6bk7aX
6mEL9l2bcTwphu8Dbkubl/zxY2TdnfMsof6/EN4jEvbH//jvQIVzWLl8Jv+d
QS3q0+q3g2pqDjgOvc4i95vu4G7N2vbKxyezrlmqXfJJD3T9Ta3r9U7uz0n4
DXph1C+7QL+2yb1V/SWDPM8Rk8+2uSeoN3wZ9U/NZNux7Q7wx0b5srzOOMJV
jxqcs49le9XkD3q6pqm27VO913sg5lzXvHYE3lNS1kU2lW1L4q7tys9q6OUl
fCada9K24eYofpUL+THnhnrIkYTfsKoNqgmqDXoDa1bXjPpizG90vdX1Jqsg
vqcmXSvlr280m7BPsn8dGheR+7sqLbt0+DblN3RT9N4ax90nm01f9W+r3gbN
7rWaN0cg3zS9W0o882j2yUX9WPmmt8LghN9mqkmqTSfVeXbQjKBZ4eWefpso
Z0bD/+ase0eD3tjo1tpsXqLZBjwo7VhSjdFsr56m3qZvCPqWcHudfScfbgd/
cp37kfqVvn2c0ujYVE/6SbNzRrmjmtqOLoebbD/1nG+AC8FJRPaqgVZRzPaT
PxrYL0LeNZG8C+G3N+63kXDyk8YRrnCEOzHpt5BscGKde5RsIxsNQZ+7azy7
6c2kt9NjtZ71JY++xXzSGPWWcvtuZsxva/ngImS5pMqyiZ98fTDh2qhvEHkZ
v1H1Vs0jjruyllOjlrG2s3awpsfcCzTz6+2tb0DKT9lkYaXf0HpLq6Z9Ca8j
yBNKXMO/gdeqqH/Lv5oVFUPjInoDoTcdntNYldCtYl2SdO8STjvw3IRzWTm9
lIOSnOuh3jTFOc+csp2+EV2Gvn+vcH1UD1pNkB5KWBbJ9DHyfhT3fPQ5awD+
WZdxfKiG3Q+8sdW9QG+uTcADufNFoXGE+3lv+0/ftPRta2nCtVw9+7fA62P2
vWaCm/SWqXdt0xvpiQa/yTWbieagXpZBsuibQmfcOaT4/pPeSDl/U9G3DX1D
mZj1NwR9S9CbQ28P1Rj5XjHwaaNnHvFWDC7M2qd50Uyn2a426/ohm9Rl3fM7
Ih/IF6qxK6J+rll7RxQL+oahbxmrMq4dstfqjN88V0UzhGaJfHBmltr++hZ2
Sty6qN/o2+MNvd1b1WPXY5umuN8emrlPRN+NVZ4NNCO8k3QOKBf0pk6rd9Xa
9+KRz/0hLba3cvpHwP8HH9npyA==
         "]], PolygonBox[CompressedData["
1:eJwtkc9L03Ecxh9Gts2W1lwGzY0tXUy+egpCWgaejPRg3TrqH7BZLUo3FMqb
3cKY2aURFLPbtF+WGBVCeu4QeLFFdfBQE8QO0uvNZ4cX78/v5/k87+RY7mrW
J+k0NEGhTZqEj73S+HHpM3W5U1qCyBnpyRHp1gnpfLc0d1TKUF+y9wrOMX7A
Wl+3O2/38hFpiDuFlHQHJuB5h/QMJhAtBaUite5J1Vbpr+f0zcf3dmkb/sSl
lsNSOeru2ztTMGxeeP8GDDK+zloWcnAF7RF4y3icvR3O3D8lzUKMt6fReo9W
jferfmkfjRrv/4BNzm7AXtzt/aPGmHdAMSZ9xcsUtXRSOhuQgglpgf88ht+d
LrdP5LYGH6BCXit4GCC/C9AP8+iUYD0pXSaDL0nn2/zn4RLnb6K3i04dfKz5
WPuF92byChppMgpJIXzUyPxQC3PqYlh6EXY6pjfTI108Ru74iPD/NggknPdm
6ptGRq9T7o/2V+un9TXK/afs3ebuNdYzjEc5N4f+Qwg0PPjTLjPL7icexbmD
Lufd/nCv4eFuj+uB9eKd5/qw6rleWc+2yLpC5t/aXT6Wk+Vq+S6gVyarR9T/
OE5tTQ==
         "]]}]}, 
     {RGBColor[0.7296744766732138, 0.7366919082175711, 0.28861507629567684`], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1mHmUlNURxd+AIBNwBmZ69n3p6e7pHjQxbCKKIuIQTdwI4sFAQDxBDQgK
yBJFUDbheNSwurDHBYSAImjiijkqLnEBjYewCogJRhSIgCTkd3M//5hTb+qr
V6/qVr2qel0zZOTVI1qEED7MCqEl9MmCEAbB6NEQwvDKEN6HPzsWQv/8EF7l
+968EN5N8a11CEvKQzgzJ4QHfhTClDNCWNQqhBFtQzjGnvHpEC7NDeFO6PNx
8zdAtyZCKGPv62UhXITOeehch86y7BDy+eP4MLYwhCyM6YvMtZXmHUfmikwI
Tei5DD2ja0Jog8zjJSEkG0M4FztS0OziECaeFUIuNnZNhtALW+6vCqE1673t
QmhbFMKQuhBysPlGaLqD7fwj9o/Fz83IXwB/TLQez1mdS0O4Cd+uw97b4b8O
fyT8PfjyCTp3QxP42QJ7boefhW0rWS/krLOq7O/L7GtdixzrL/FrKT5WILMG
+w/FjNkxzv0qWl/F+jZ8f4v1XfCWRPLD2PtYdQi/xZ4LsWshMlPPDGEBtAx8
FrfBPr5/zZ5/s7cJ/qRCY3UBe4fx/6+QvxEaB6vW+F1KrJeD63xwu5jYX1hB
TLDzToDvkTK/AdlviMHbxKIL36fUh7AeDKdCj8J/D/7F8DPYfZyzEqwviPT0
gJaDS4wzKqAb63zOeej+iP170fOx9CH7dbZ1vcP/O+G/Bx2P/bPBeRg4X0+8
5uY4fiPbh1AD/0/oupLYz4F3CfLH0JuLzFHoK/m2s4S9Yzi7GRvGxR0/xXE0
OK3m2zQweQRMDke43UfctpMzvwbnDDh/3cq4CUflhHLjDmS3ob8n61H4OAOM
+oHnF5z7S/7uhf8pdj3dZHuH4vdE5Lbh51KwXca3+di5HLqEv3msl0Kz6n0H
v0f+G3y/ijMP1Fiv9M8q9p3T3dP/30Yy+5GpK7c9W7FrBXYOVlyxM4NvXbA/
DT3GtxHI/K3K+IkvDHennQfFDY6f4ljEWYWlzud55HMDOfYSsinOaUJ/FfIT
8G8cWBWTJ4uQeR87mpF/p8T5Jzz/hQ3P4tdo5VvGuZDf1nbsBP9t2LELuoX8
zYv4pXGvS6B3Y/MQfD4JJv+pdr3Zgm2Ps57GnsXQXth8gnOL4T/NGcPIj1XQ
Kt0ZbM5WXcHua5E5VOMzdTf1/9gc+yKb1kf5ObbAuAvbw+zNRU8R/J/CHxn5
K7//gv9l6JqIjc8g3w35y8ByfIFzejvfD6FzIPb3xZcV2HAz/EnUg++I6Upy
fhnrKeytYd2V+9QVmcmqgeD5EroWkH+zS51niu+UKuek5FUXfkzedMOHn0CL
4CX5BvxhUYnXC0vss3zdWmJbZfORtHNUudqLWPVvcl4dxK5bkE+w9wT2NHZw
fqpOLigxfz704aQxeRf7l0f5tixuXdL5fb5rt2p4EprDntfQsR3dB/k2AJmj
+PQQetLg+QL+ZrX1Wt9Gsed61Rzw+JC/SeB2Psr6Yss+8BzG2RPwo5I9h1l3
ynEvWHCGY6mYyo6Vdc69TeRGN/mDzsnEc3m5e1kdOpsj/lT4p3KtU3vPhtkV
nedA3yz22X1YP8HfQtZ/gB5r4/U6zmil+8be3uBwqMw1X7X/i8jfE/jbJc/x
GcD3rdyLXcg8AD+P9UqwXVXq+6zcuy7tvFH+XE4+p+tcJxuhPycvt+P3NPaV
cX/6gUUp9Cj4r+deH4G+DaablcP4GrD/NrD9b9L99vft3GMKox6gGjAiYf79
6L6Fe3UTvh1Cx7hC97i7seVszv6W/edAu6TcR9RPdOdOt/V9E77CU7g+xJmL
4V/UwhhNbuV4tW8wPxc6rsD3Tv3hmlLLnACzy7Dhamx4q8g8xVt7N+HDJeh9
ETqds1uC/x5sqceupe08u0yu9tyi+aUZ31qC83TsmpmwzMpC10HVm2vZu5oz
1uJjFecXgPVW8uDVqIcIW2F9R4H9WIudQ9EzC/46dHfE2WHY+RvOfAQ9Jdg2
GttGJb2+Azom2ruhznu09yT4jEbPPNajEu514qvHqDarRu/E7p7Y1I29Seyc
E7N/mtFy8P0INufoHnH2XdjwIHQxcRoEtkuha1ubfySq46rnmlPU51SfvyUZ
51W79w7C3wsbXHPKOKd3VFebFOuM71Ys7hqkWjSc73NjPmsJ/HvbeD5R/3iD
/8fB3wxdUutap5o3IqqftyZ9d7Lau7a82uhevIq4fIANFfj+V+hqMFrB3n0p
z3Oa6z7DzkzGvUA94RfRXTgDTD4vdA/aT6xfU39F59vwxqOvRXvn4BuFrtWq
2ecUuq+1qHfN0P3X3T+3wPWtgLgsqzb+ikO/Mt9f3eN+Kdeasrh7j7ASZs0Z
+3UaO1Os96EzmXHd0lo+aM5Wr3+ac9Zw9ijsasTe/vx/Lvw5nDmT2PU6y3f4
QeGj2YZzNibNfx7aEhseRu6aAtctyeiO7EiaH7BnUa3j/ih1oHe956UnsS2H
vRPQ0wadLViPZp0FfSrfc0YzsvnE/gB7j9X63u/J9r1SHiufO6dcV8QXRqfK
/V33T31X9aAEzP6etD99sXNA5GM+e9fV+t69yL6CuHNMubaxwDX+ZsBuVWn+
Puysq3Mudy/1LKH+rRg8H8l3T7onKXbq240Vzm3l+JU59l158496U+XRgZRz
bDH79tQa73ip80U5qpz5IpqBO1UYG+nS/mfIj03k1pqE+5nqvOr9d+j5CD07
av2GELbCsVOZe6LeN4PYM529Y8DpvoTvte73wIRr8+9i/tNab4J4xvNaAqwG
pJ3bb8LvTS69DAb3ZVwDH2/n+ntvwusVhc4nYS7sNdsOJg8/bum5WDZoJn4s
bf6n6tsNru2r0/7TOg/edPSMBZOWxZ5RNKucIkYvsGcTZ2/B37dqvX6n1jO+
epxy/vMin/lh0j1P/HXYsy/in0S+Z7b90qyg99zBbNs9Nnrr6c1XX+y+0ill
n+X7pXq3FjgHdV97RPd0IPj8LOH7fzm0Y51r1OB8v5k65/juNTV6nWn0mboX
P8RbVG8gnd8pktf7TfOX3meXxN33+0A7RvOz3kPq5erpx7Htn9Ec+FqT3656
T+h9ll3j2beSvedVuF7Hkd1W73rRTfkc8yzRhvWyMtc31bnPks6xPUXGVBju
ZX0jZ+Qytw2Fzi+2/j1N7ifCSj2lVfQubgldE82um9GZitnmeRX2VXrkr96W
wmutZvkC29kdmf5neib84d0uejP6+lCre8Pfj6+xlDGtqnM9Ul2KsX6k2j3j
UehzNY55bonnesVI9VQ9W717RplrnPbuSvr9rjeU3oRzsPtW7BhFrEPcc+Rc
ZA6U2IZ4rd946i+vNHou13zeE1uG13geuoHcuK7S/gyodJ1SvWqu9ptcb/M/
p+2DfKmGdq/zvRnM3q/KLX+81jFWrL/k+6yY5/XZur/l7jXqOaprqleqWxOi
t+H79Z43hbNm1mvyfVdjTX6Lar1Tb9OE5zHNZZrpNdsfZR3P9zt5FfKzKxzn
ORWukTUd3N/uqvDvNRXYNQ9M2yGzBQxG1vj9cFuNcRE+nbH/ZKVzTzm4P8q9
fZzVkDZuwu/LaNb9gPXEJp91kLxbmnZfyKtzvf7/rFLsu6iaejh666oPPgUO
u4qcz8pr2Sc7XyCeW+qNj97Qp4u9dwVxnFnjejerxr/l6K2iWWJgmTG/PeKn
o98O1KfVK/qTj8ui+V+/aWlu0/w2HHpxg2Ok9656knqTZkP9BqQ6Xo1/Y2r8
u9VY6a/3W3xmsfMxHdlQmHAenq73m0e53Z5Y5VX7Dbiy3DOu5topTZ57lJ9r
E96jvVnYOyPycZr0FbuHnAafamz6FPnmKr8npfPJcvda9dw26HsWH26lh63P
+A2nXibbPojeU7tr/X7Q7KQZ6lSDYzK00G9OzYFTM66tqhsbMq4jqieqWzdU
+o2pt+aQuHuu5ibVGf1Goz16mw6L8vkJ9N6DzXMrPYtoJlmAH6mU86QDufBc
1OPU63ZEPXR3kedB+aK3q94z6tHq1U9Fs7pm9voC4yCM+0S1SL8papaVLxvj
7lXqWc1F7tuqLap962uNid6aC6N7sQM790U1RLXk/KRrsmrzg6XOT90n/can
3xM+IUZX5LmHbQCfSXHfU/1GqDsmndKteVQ9bhvyXfl/N3rOK3OfUO1dXeoY
K9YtiHnHuGe7jOb5mPXMR34Gfo4D25nQO2PW0w3+/wCo0Bjy
         "]], PolygonBox[CompressedData["
1:eJwtmHl0lOUVxt8kCCEhAZLMZJJhhkwmk8lkQa2HTcUFFKTV1qoU4aCgEo9b
QcAERI9atBEUrUsNi1X2CioicUHa2qrY4249inh6tCA0VVq1WgQr1Nb+Hp/5
4ztzv++9793f5953UhfPPmdWYQhhYkEIffg9PRNCa2kIu8pCmBYLYVs0hM0D
QpjBt/WsXZwN4Tbel/Jcy9o1VSHsYG9hUQjXs358PIQPjwphar8QFrK+szKE
U1h/t28IrzaE8L3mEEaXhzAXZU/wvrY+hA39QxjIt270rcxa3wD4u5GVg/84
1ubAn4I+NhHCc9jZWRzCrXUh3NwawnL0TceJjZEQDuYsSzI3V2AXOp4t9HoB
9PDaEC6Ffz77F7P/kRZkDwxhFf4Nbgzhv9hwiLVuZKxGXwvPcOjl6I/g34qa
EJry/l2YDOFLdMxj/zr2R9l/DPyj8v5tSIdwmPUs/F34dCG+/YH1LvY+z3o5
sn7E+9nw/6IkhE3EKhDPwkHEFv4fwF/daNnSsRlbR+DfqfjSl/0job9lT8Eg
2zw2RXyx8fE+/jaR2LyBz7tLnIP0EGxnz2j27yU+OegjxPN93iehL46+RW0h
3IS9W5HxLbFoZf0wuX0D05qhJ2Dv97G3nT2DkT2SHBWwTujDcOgWYjIS/3aT
v6Xw76twvqRvDfYfpCbOgz/OetlQ4kcMflvoPa3src3alh5sXoT8V7FhEbbc
wfvZ6C7A5rllzqFy+XJ1COfg+/XIewv/zkDme8g6nfVeZG/k2xWsJeHpgHca
Ovj8XQ4vgH6N+nsG25L4tAldBypcD1vYczz2R9BRxVNCrZTy1JHT/fC/goyP
4V1W4/xORuf5yPsP+biFWCfJ2TByMbHBuZ2ED+Oh/8z6ONb3IH8n76+xfyLx
6GH/waRzrFxvZf1k9G+szPte7lqZl/FZewEZ86iV3zSFcBrx2MG3zdBP8K2H
531kfcDzP75dXeacXxaxj/I1xrfZrN0Ws239+DaZ3K/N+KzrDOosVvHtIvx7
G/l7qn1Gdb46eBZiT3Ozz+bAwSHMhPcKYnQpsT4OfZPRt5r4X44v64nZoxW2
QbZ8jbxh+Jcd4vx/hT+fY/dj6HwG3aNZf4x67qGGr6KWE3xrpXaW4tPn2JNg
fQ3vYxOuTdXoOOjBadfaAZ6jodvSXvspe4ZBt2eNXcKsDvTNqPTaLdh8P7av
qretsnkdtl3V5FgpZiX4OiGPj208Y+AdT71NDa63CdC1rT77q5AXh94O/0rW
DqHvM/RdkfJ5Uc1cCb2LGugt8Zl6SbFtNBapBlWL0yvt3+fY1IL94+M+a5Ix
AXpeyvEo5n0u9Ja08UEyBiErHbEvqv9d2LeRb9+WGs+OIpbNacvugedU4nd0
wrlRji5XrvJ4fjsxW0C8b8zXn+LXiT+dqvFS49s1rK8ihl3Fjrmwo4oY7MSX
B5A3NO4aVa2OI6bboDvRMTaPZxFsi+XxTt96sK0y51rSmauC3o++j3mmoHsq
z6aIsV094GT2bsuYVrw/Zf0wNkwpMMYJ68ZhzzfYM1Q5hPfMrLH2C9a/YX+m
1vbpTG3Hvu3UfAt0AfwB/qebbPsS4vUZ9bEm4t42FBnvsL9PzL1F+DQCWZm0
seRLZKahn0LGrFLXxF2slye8JjwpS7jGVGvCpO3kfwf88+HfAH8Ofw6l7Ztk
PM3aCQnLV72ol83IGhuUo4ugp8ZdGxeCL+1J90T1RmHieuz/kj3xAT5jTxCb
kQnbIptGQb9FTWX7GqPehD5EzX9UZAwuJB+7ssbyH/PtAPlfQbw2QBfhwz7W
x8V8FtQTj8a3pgrXbyU2NKL763rHUvjyb+hf1fksqgZVi1117vXqId9gb1HS
+VRO7iEXFY2uHdX8NQi+pM1YpJ6t3j2wxr1WPfc53k/Kx0M9YAz0UmL6ZoHx
5CLev0oai+Xv2rhrWrWt87qcTd0J50L9bxv6XsS/D4qN53ey9nqj4zmNM/1p
2jWh2riY98O839fkWqpm/73QH1bbd2Hs+7w/KEzF/vHk81ri8y7xXd3P8f0X
tvyp0VgoHdLVHrft8uFOfPmw3r2wG/92EOuCjPUpZvvBknXwFPU1xm5G9h50
3sv7O8joxZaZ2FiOrfcRv1XY0ht1LFQDR5LGPGGf/PsE3jMyfhcmHoXs5fDc
3M86pKsh5fhoHniceK1D5rJyzyiaVXY32Xfp/yv626KOl87UQtV21rlTP3iR
tVb2jyh3Tam2Uvn+o29t0OdHjBfqQVdSO60Z9+KFyGyPuqZV2zewfg/rc7D3
KuS/THzWkN8+SWOF4qVae4oz8Xv2z+Z8PA1dk/VsIp4fIu/EiOOtGWQC8gbl
6005ex577kPGz6Ahw2VxY7CwWOevgb1rmj1rKufK/UrNtMXG42tZf7TW9SYM
6BPxjKdZTzOiZsWZSZ9t9YDbeO/NuX+ppy9Wr8f/V+GfhT+HyP8e7H93gGew
FLmMxqxP88ZJxOaFuM+zeHbDu49nV56/gPM3P4/3wpgTyP/ddY6lMGgu9m1p
cG6Uk8egc0M8f6u/f4F9U+I+ezqDwibNkDpL8rGiwTOa4qOetZa9C9uM1Sni
c12bz5jO2j5y8Db8y+K+K2he0V3lbzXuxZoB65BVm8cH9ZP52DeUeG4p8vk4
lXi8lHSuTiFmZ3FeVuPfdPR1646DvMtSxqo4Twf0xlb3MvW0TdD/rLJv8jGD
vQdq/K6ZRrPtmIRjq5lOdwX1WOVWMVfsd0Rd26rxR4n1lqGeD3vhzyH/4Xx/
k/yx+LIgYnnar1pZkp/flPOPyP0zMc8f7awPa/YdTHcVzbv3Y8+G/DysHrCa
/J/RYv06rxOhz2z12daZPqvVmCXsUr+6m9iVsqeEZwCxLeNZ0GKsEl7chX9d
+NDQ33j0c90VU35X/Y9m/RFktg9yDBXLR8jp1MHGnIfbXJOqNdXcXvY/lXJu
dKaehJ6Mj5WlnrF/knMPlW2y8UbyuT/mWunEnutQuq/a2CKM+wtYc3Kt5z3N
KA8Sv2R+nr+OftKfvYUx9zfxFyH/hipjgzBiLrXy97TjI/z9I/beHLdvOuPd
SWOEsEL5fxI6QT1Vlfr8HZfynVH50Ey1ANkjh3h+vEn9FnpFzndv4elp7L08
4bub7nCvU+9VadsmGyuhZ2Y9m0neKGxpanXtaKbUbKmZTeu6s+vufqTCtL5p
70lpz3L6dknWGCms1B3w3FrHULGUD0OwZzj23VPmftsR8Z1Zs6a+NcTcg5T7
NchYgrz30DdjoDH+XPJTkjIe6f7wMfwj0j4PmnEPwlsdc+9Xjh4gP79G/4py
Y57u5vpPQvHZh/y+5POLqHujMGsn+kYhI9XfeDiNeByT9l1A84P+O6jI3w90
JwrI2hC1rarRJdi2NWJ8Uc9S75pbZay7FZ7pyG9kz7Iyz6i6m9/O/l8OMEYI
K9RDVC/6NitrH+Wr7kyHiN35LbZXmDMFemDOtaeepd51fM5YJR1jcp5J1N/l
0yLk17V5tlT+C5A9J2usEmatIj+RrGcL9fwo9EP5eV9n7mFq45KoZ90u7Lmb
2HZE7ZswXbO8erR6tXre6ew9ocn4rHo6scl3PvmjHC6LuaZV2xXw17L/vJzf
dUYnQR+MWZd6cAvrNRnzar9qQf+JdOX1d2SMIcISYUKm0pgl7KrG/9nw783P
S5oZP8CexXFjl2aOjVHrkC7N+Jr1RzfZdmHqKOgpSd/VdX/SfxdH8vimmUOz
x9YK9wb19J563zF01+iGXsZT1OTaUw3qrL7T4F4k+cLu3pjvVvrPqrPZM73m
6YXwl8NfHDX2KSe6i1VlzK935eqOhOOv+tNseUHWtaWamgbdmXIv0gytu2Bx
zLKFYcKyq1OOlXrsJNYz9e6Hwpg5+PZJtXuD/oM7Fvt+1+L7hO5Mz0JPrHNs
dQd6Bd69Oc/ymulX6m6M/Q/mz8tidK1v9n9FOqMPNXtmVP40462F3p/zfwv6
D+cfxOrNBs923/0nSH6P1BufhREPtHhGEp5Kxy34+3+MJdj4
         "]], PolygonBox[CompressedData["
1:eJwtkkkvg1EUht9oS3Wy0MnQKkpJLP2E1rD1B0gNiSGECGupIRJdmlciwk7C
plYsLAQLCyExRWxI2Eks8dzcLp6c+5177znve+5Xn53oGS+RlAAX9DdKAY+U
JfZCHzwGpQforpPuy6Qu4kKNNA8HYSlHbjMurbBe80lTKSnNXgbWG8jBJRTK
pQviOrX6vNJuE2eo3wFeBHhgIyLtOaRwNXVapCq/NEkM8h2Cb/oc0e/HROoc
wwD7/TBdPL8dsbqNfmdImqXXOb1cMb5hmD6DbumTc2+tkiMgLUUlP/lAwuo2
+qfoMUavvPHFeo71ftj6Nv7jEINcEi3M7LSSGtT0gRstqVLpq8b6Mz530NCL
llU0d9KnBw1dxEZ8JeGLe0PkRhJWp9H7yizvmOlbyr6BeYtR8iPQhpYYezfN
0jJ3ZrnrxMdvrfRXxKwd5GbYW+RMO/OI8OBZtLzDBzzh7RGewYfmw6Cdg5lH
Gm95vGWIZ/i7reAt2qxv49/oNvpP8Jtm9gXiNWdfuHOVtDqN3i28RdkfL76V
eTOvmT/6Xaw9/Bde+Aer5lmQ
         "]]}]}, 
     {RGBColor[0.775316985665067, 0.7257630179669606, 0.2690661659971697], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtmHeYlcUVxgdkWWDZC+zd3tjdu3fvVkwUFYiy8UkoGjCKqBRFFDASfUBU
[encoded data, 4380 characters]
v3dx5uqIp+5JwgvF8IusjSh1LVAN11uScrwr+nbNc784Hb//Dz+gXjg=
         "]], PolygonBox[CompressedData["
1:eJw1mHlwleUVxl+WkGBICLlJbkhIuFlubjaoVVoWEepYUKxY68YSVBSww8iA
[encoded data, 4140 characters]

         "]], PolygonBox[CompressedData["
1:eJwtjztKQ1EURVciyYtIYggk/sX4FBQshRQ6ArUSQUGwsExEO7tMwCrgr42F
DkFHIAjGzwhSKAT8dBptsx55xWKfe+85Z99d3j/aPEwCeUnJ5RS8p+GuCNUx
qMn6BKxJtQzFQThQd6dhJ4DjUv8t6lkdhxXJjUI9A40ZuJqFpvwv6pGDPzXw
fluzkr0XI3rGRHXC3ffOJtWm54p1wf7rSbiRuRC+/EMY9r0iz0+9P+TVmQ3f
tgrwEtfP6qMZWnGWKNOt2d7MeG7WswVYysKp2vKfT9I126/8SDsBD86kvN8b
gG990taB5K2HZdl9J0PQmYceaqcwYw==
         "]]}]}, 
     {RGBColor[0.8148967443333801, 0.7062911613513619, 0.2536695374439994], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtmHd01eUZx9+GEVYYWZfkZtybfRPQHrUKQT0oFIEUq1ZRloClqAeE2sqQ
aQioFRkKOGpQ60ClFAHFKh1SPdp6ZEi1KIh6Ok5bB63QEjb08+33/eOe5837
e/Z+k75p+jXTskIIa78RQjtgdkUIP+gcQgfgzfkh7O0QQm0yhK3tQ2jrFMIK
8JqyQzjayXejy0J4h7uF4JY1hHCWu0FFIcyH5iy0K/k+KG3aM73Bqw3hhq4h
tIC/strnFcDPoF2SE8KNeSHcxLf3oc2Cdjm/+chbBjzC/XFkPVIeQg685sFz
eQo+/KaAf3FxCD+B10h43gv8U10I18HzA2AONjWDcwr9roTXd+F5SyE6JkKY
AZ8l8Lgv0t6FnBv47QD/79zlYstOzkurQuiftg/6AZeC8zX3i+E3LulzM/Yt
5e8MvszClk+xqxkdxnFehs4jkX8YPefXhzCrewh/6RvCEO4ruT+Lz9uVhPDN
jiEcgPc8+OxA1r2cB5b7Povvz/B3e86/5fvR6JMn+f5P5E/LdjxmlPm8AhvH
oFuS4Daj8z2R58+J0RiUfAHdGnvbL4rdv0mGsox1TgAngP8lfL8Hj1P4cTr3
J4Eroo2TuG8tNH/J+SH2r+pGPICVGce0Avgg+AvRZx24o6PcUcDnuF/G/Vbu
d+Hrufh/J3BvjN2BhH0tn7fH1gvR9SHi9RLxupF4rO2CjsDZ+PJOfo+iR1WU
q5yakHbsJwKnpu2jJvRcUhrCPny4riCEY/h0Jee58DyQG8I21QHf30bWMHgO
IVbV/P00OMfRawt8R6HnGvRMVobwD/j/i/th4EyC9kXkd4cmBW0O8GNseLUn
eUSsP6jhHv+cg723oPtkfsehOQyf8ZznkyeDyYOdyLoFfr36mjYPuAO5y3rw
DfgZ9C/it4P4r0eUtQF9t1Q5l5RTVxKDeci6CjiCeHfE9mHonEH3VvCPEusW
fFKB/kvSzkXl5Dz4DSlznTdy3wPd/oZfD6PXKfyDiHBerv0of44BNwu884jL
wwnXgGphPN+/qrM/z4fn0IivONTg88uI6V7s/RidFqHTfuDd4FyErOfAqUNu
G+eyUte2aryKu778/To8FxGvd3s49r3h9VKe4bXIygHvM+zqBtzRw3bp283w
GY3djxH3r3LNR/wq+D2Fzx+F51R81QtZw7FrE76+Ht2Wo9vj2P80PPcAn09b
z9eJw9JY1wfVf5KuzTehvY3zMfisAfdCeB4C52loP+fvUfD5ErhH+uHnc6nf
IuL/JXouQqc6bMnl76l879Lg+0Z4jMs17RfKZ3S+Ax364fNp8TwI/h/j//eJ
+3/QbX887wO+Sl5+Tl28DBwAr6/gWQ7vbdA3EbvGlHNQ+SkfXVrtHLkYWBx7
gvpZMb82aIuApdBORm4FctNJ9+0j1e61wlFf2QjOIPj3SblnK44XZDmWOo/F
1qa+roOWPOeQcik75Z4kPdWX1qjuiOVqYBm+zucuA85d+OMUOs9Gj8l8GwDO
NPyUrnUP74Veo+C/gTrq0Nd1f6Kb829TxvRDFJfezqfT4Py5yHYl0eVzYtkI
n3e4O1nkfvs48WpCxiXQbiIWHVPW+SzwDHZNwo8qlDbOEzkfA96a6xr8BB7N
+c6rOejYWGf9ByYsv6KXc3pBnmmPQtucZ55nOS/ExibwnoBffVfXs/pjdpV7
SifgQ9FXb0hmkWf1s/X2r/w8A/+Nj/3zGD6YUul8uw34cKnz/1bopsZ+Pgu4
OWMfX4qeC7DzduxdCNxOT8sF540a92blufrwHmh2cf8+cKJqmXhNJSdH1Dqv
pnHuFPeNyeh5sND4f+T7+nr3qCx0KCs0/9/VuB8rh6XHLL4VoOfMIsvN7mzZ
+uledTQr7RqcRg4s7Wlb1L/uiHbJvuHE8iNqsKnc/VExugqe++pdk7PRfUOR
Z9xjhd59lN/y6Yv1tkW1so6e9jw4TyacT8qrLfhsXsrzRXNGPUK9QruAdqL6
GLvTJe6xZ6AdSezOI3bXaXdAdhk6tFS6J6rnNCe9Y6k2hivHi5yfu/l+WezP
08HZWOKedwSZ10eeY/i+GZpt2L4JOLTMM2sVON1S1u1+dKtKeo58m/P5edZh
ETrcVOha/Ai7N5C329Hn7YR7nng28vcVZcYR7uCop3ZD7R/y4Uh4v1fl2dcO
OKnQs0Yz5+XYo75DDQ6ucT4rrxfWe75/gT6nk67NEuT+nt/l6mnoMrS78ZXf
naBtxbddgCXY2Yo+i+EzgL4/F113l3in0W5zTdL7q/am6eB2hWYttN2BDfhl
D7I+TbgupYNqs63YOT6T+6qUe9G58P6ixPifJEyjs+4WxH34V9h4Z9K70xXE
4upi+0o+eythf1Zw926Jz7obX2BbOtc4rorvj9HzzZT3c+3pS6rce1NJ91+d
tUe3xNw7Ab/V+Og1cnIXuXlPvvfA8ci9usA4ytOT4D3AuSex7h17vvbBeyO+
9sfdcU/rCl2fcs8vzTHlkHJJe9DuPq734cCWMu8D2pFTcc5q3l5Q7Jw/jY3f
L7DPy5E1Ap774FnB/ai061nzU7uCevZubN1V4jgeqPAOKn9q736pzvmwFXgP
/h1Izt9O7o0p8MxZgY2b612/J+C3vdA1pb1DPV29vS3f+4L2BvXH0rjj9ULI
azn2uWrjUJ3vtQMuq/IbQW8F9XT19vvx06MF3uVayv2W0DzqmXTeKH9uSFuW
+r5qdU3svVOwdyi2NcN/WIVzXTmvuTSs1nP1ilr3YvXCX6LblXHH+2/SvVA9
UL7Tzqi4S3b/hPcE7Q794vlHnP9a7hzug74F8b0zJt/2TenhHe4Q+q/ErsPV
np+/7up4ZGL+nwPttbGmFhCLC8nXreA8zv3euOcoX74V7y8A/qLAfAZxvrTY
+14+Nf5WoXvJq/AbmeOcVC01IOty9U3gUeL6Mrrdlec3oWKn99CHdab5CNgW
cY4AK+MOn0GXZ5D7CnL7IfftKOs3yHogvkn1Tr2oxjj9azw/NEcegv/SasdX
u+GBuLsm4Jcf/aZckN7iKd6Xx517oPYpfg9ybqv2PNYM6UDcNkPzLrn2Tp73
V+WC+vd9hZ5b+6mjCSn7QTX6bNr9RH1lXa37r3bP5ohzDfpkF7rvqf+prlRf
3bDltkLXpmr0jpjTMzLeS5Q/yiP1Y+mm2bSxzrWm3qnerD6rHrseXVei83B0
n1nr/vkUtD0zrjXVnGKpmDaU+v2vmbcF+46D00vvNe6OxP1qR5znxV08u7X3
af6qP6oOha/52pYx/Bl10Z058Qr+6QkcUWq6sWnnlOaL8nMs+Ov1v4WMeRdF
/rPx1UXwnlTgOtO8Vv/qnnCunkNODeht2nEZvxm0F08sds/6f+8iFovjW3IP
frgaP8ynNt7r4zeP6qYy6XpWXWu3GhjzYVO96021oxkiPaTPqpT9Jb8VIP/h
lPP2Zr6vqvbbU2/Q5arLzq7t4w22t32V3yd6p6yn/02OPGWr/CW/aU9ZnG8+
q+G3Mdf+kP8mxvfRT6GbU2c+evfUxDeX3kzqJ8tjT9lf4TmledWa8I7dnlgU
FVvWEwn/L0P/u0jCb3Tsw1/XeTYoDzeC2y7u59rTj8UaGQxu1zznhnbwdQ3u
Rc82eI4q/5+A984K66L59mGcEXpfrk551qTRfW30SSvwkRj3S4r97inOdp20
wnc8/Pdi45yU7R0Jvz/E/Up52jHW1P1F/l+A4qK+8hxx30rcXwCeLTXPM6Xe
s1Uri+DzPyO+35E=
         "]], PolygonBox[CompressedData["
1:eJwtl3uQ1WUZx18X2F1gYe9nz4Vz9pyze9gLGI0Y5poJQrGApDBEiCjYIOIg
YAVyR7llI+CCgIouMWHuUCIsEJZkSeNoMbEipQkMjf90U5gSGlcgYPt8+e4f
78zz/t7nfS7f5/b+Mt+dP3FeXgjhf6yerIl1IawoCuELPo6HfmlQCNOLQzjR
I4RB8RC2R0Mo7R/Cjj4hPFAbws6qEHb38LdLDSF0Zs2rO63cnVFr3mPs+w4O
YREytyD/6A0hPA79EDy3cTaLO1cTIfyMb4c4v4X97kwIXykLIcr5d/qGsD4X
wrBB3k9hv5n9aWSuLwkBNeEKvO8Ptv2d2D83EsI3sLcGx/7SK4S30yEMhSfC
/X+xb0bfPehb3s3/YE0IXfDcVBjCZO6s524D317O5xx76qHzYviFrw3ovwP9
r7I/hi8JzvdAj0VeF3evsMZAV2Pvuf7+NorzqfhU0DuE59AxDPkn69HVz5gJ
u+Osw5zHC3AoFcKa6hA60L+A81vBei32LeTuJr5NqIS3zPzP4NOo8hCyWWN5
HVN0H+XbH/vY/4H4W8o6Bl2N/D7gs7yRmHTHczogdnBnY7F5Mtg/dJDxmoy/
T+PvN+EfA/9idNyBPSP41shZJzaNxLcLcWO3CXnjkDeKb19wNg59MyO2UbZe
14HseRHnmjD9ObK/yrcYZ2fRPwlbLw+wr/K5C337K0JoZ7VytoN19Ub8K7YP
K7jfk7OWGxyfO7EtD32kZciC0VpsWQnPYni3C29sfRuMeyK/if072NIL/B6C
9wQx2czFlpxzTTmnXFzItzf6OacO4N8Z+Jdx/wj3T0MvJUfi+F6J/YuI90Bi
lGNFiVuMdZRvTZztA4+PI64J1UYUmw9i62fkw83g8U9sOA99Env/wz6GzFPQ
w8qMz73YtAXbovhQxSpHdgVrKfg1c76a8zOc78Pemfj/JPLaobeV+bwMefXo
ewz+4eyXwX88Z0yF7fNg9QLrZXw6j6+rkbGXuwXgm8+ahs77FWtkvMXZx8jv
h+874RmHvBTyh3L2edy+CXNh35U1doe5cwbeEu5sBr+/gV8x9F3E8xPwvcT5
OOjp2PIZeK0Ar13gNZZ4lfayT83QE+OuNWE0QTQ58r1C12wuSQyqHOsl6H8C
/Z9GTWdLyX3k/yjn3FaOqzecRd+nrEnQ35Z98Lxe4vjuIR6PxKz/buwZj/7f
DQRL+se3sPlP6FqWdr4Kk6XQj8ecC6p51X42blmSWYzsE+TQKfhHgNFH4FXI
fjbYNWPjO9i6N+7epB51N/X4tZzrRT1uAvsDDY6t6nE/9JoaY68YrCS2LWA2
r8D9bgx+za1x7JUDyhXlpHJTOaRc2g69C3tuQccL0A9g0zp8+yErh/wP8TeL
7pnIuIas8qjPxFPD+Rjiu6q347MV/HfF3Otlw8KUZYhfOtKcPxqxf/JHs+dc
yrWhGvkDd8+jYzq6psLzMPbVJJw7yqFa6EPc3wj/Rfjnsu9f41wU/gORX9rg
WlJNlUD/u957yTgHvbjGtaWaVe0eanD+qce9i2/TU+7v6kczlG8J06pB1eJI
8HiT/LmM/U3Evxc2H8K2VfDsJ99WJTzLNNN2418mad+FgbDTDFGvUg9VLx2d
dTyFYTP0/Drjp5n5GPQP6jzrtF8A/f2kZ4PwaaXPjK1171UPLiJ+UzLOf9Xw
vdC9sbcVXU+ivwj9Fxvc+zXDO6H/WuVZpJqcwf0i+HfAvxr+YvjbwPsJ8O5S
TeLbxpRrUzW6nr7wHja/0dszSbOspHve6FsH+5HYuAl5f9Z84ayJmM6BXk7N
9kP+5IRnqTB/Cnltla4P5ZxyTzWmWnsWGRfBa3bS8zEfGY8Qj46ce5l62lPs
f19vftXoEe7fHndua55/Hfp0zr1S9aDeeK3KvUj+r8L/d6tcr+rxe5GVxzz6
MvRJfB7LbK5LeLZqxraD/TNp+6J8m1rpGa5ZPo5vhzW/4WnNs//roHch4yes
q+TNNdaGmM91pyvpGa1Z3QF/BbpSSdsuH2YhvzNnLOSjfH0pYvwUjzXoroya
X/3weWzblnGtKIdG4G9XjWtZ+A7h7sRK+643yUfI6wHjrD7uSaPA78f4sIP1
KjjsYb2ufGcdZP2CdXyAsboTf1+Db0PUuag3VR6692U8aw+jbz/5215nWjP4
p8R7ddq1qx66BnowayR3K/A3RbxWplx/yo/l0A9X2jf1/JXw5qWMrTDMx5+m
tLHXviBim2W7ZrJm84Ws4z0ff6/g76aUc1tvhhboa0nHQvmst9aWtLFXDW+F
vifm3FMObkfefSn3WtXsVOgXK12bqtF5yNqa8+xW/9BbRz1SvVIzZRv0cDC7
UuQeoF4wrdz1oXqNNLgGVYurWFH2iQbvVaN9ic/95T7TN501ph0LxeQ9/B6Z
tS2ydxT0gUa/3dSz8vFlStRvH72BCjm/XO5e1o/9jIzfRDo/Bib9sXVaxm+D
s/TLPvjzJTBOF7lnXyC3enbnj3rka2BxF7l+iruXwOdz4j0pbvl6I+qt2Fnh
M/GMhzdR5fesam54tXNUuaqesDbpnid8pfODgcZIWKnHFbIfUm1bZbN808zX
7Neb8RP26zJ+GyreS/SerHcuKCduxrb2Rvdnzdx9je6Zkq+YqHfF8Lmzv32Q
L+3Iu723c/x6rld5Nsjeddg7O+K3g+L9KHi3pN0rJG8TdFPGb2W9YW+FfjBj
7PXG0VvnrYjnieqljdoZXecz2RDHluO1fksI8/ehh1S6dlRDNyJ/Z4XzWz18
c8pvOL3lPiBWH7JGlxkL8byC7kS9sVcMkvhSkHI/Uk+fUuE3it4qmpmanW+S
Y79m/R3c/8Fam3IvUk9qxfZXsHFOsWdwssb/EHq7KOeb0JVOuH41I85TK79s
8Lnk/wr6YNr/TpppetutLvdbUf5eQvZNZe5t6nGL9K+V9KyXzjbOl3TPe/2T
3Qb+91W4t8on+bYh539Nvff1r5mpcq8XBj0G+A2l+r7+XuT8v+wvJPwm1tt4
Tvf/rf5Jn474Da23tHqkemVTzLUiG2TLbxLOFeXMfvh+2/0/ohgfififTfNF
/xwL8P+5CvumN08bvP8HjCM3ag==
         "]], PolygonBox[CompressedData["
1:eJwtlW1M1XUUx79lSolc6l7wqtRNLlzhcocvSCsxl9O2dPiwnKCoxCpx62GQ
L2w9KaA4xZZDp75JXD7MByYKE1ybrDbfuGWp5cMiSF+0tDS3FJOa4Pqczv/F
d+d3z+/8z8P3nPO7uW/WLap9VNJiMBIcHSdNDEmhImlNofQBuBaXroJuzrMy
pDNRqSFPqgfrQWy01IhMPiMVgvqJ0urHpSHsHvBNHd8MI0smSM+Bjzh/CHbj
c/8T0secq8ZLK8CUScRJl55Hjiwmnyexi7q9fbcoIr0GroSl6kzpi5TUno8d
OM034THkM1aai80ccBq7Sux2Ynf9Wek3MDlbyqLoXznvSPn9rpTXaLV+87T0
NWgn7izqSFHPZvxvAncTUgv5zcbHO9T8NngPhOHgXeTf+OnC3yByiN/DoJwc
FoPzuVIpJKeTV0+OdAosR1+CfQX2e7K99qnUMcB398Ar6LajG0x4fMtjFRzW
gLX4qSbuHez6ybUcni/D0XlwAYxBfw1+Q3neF+tPFrVEwJfYHx4hjcdPlBjr
idGX8J5ab+eimwMuFbrfK8h75DuK/OfTp7ucB3K8PqtzGjmfxMcBvrlFnZXE
raK2B9gMgXT0n3B/LuGcGXdVSakN3yuQreSzB9SRTy1oiDiP9+FF1LzSZizi
d2azDn0Z9/XIU/SqBxRT12z6dSzq/bM+XibOJTCZXn+XRh2cj4F2MJqcd5NT
Nbl9RozvqS2bXJs5bwFnmaNvQW+BdJG56ivwfbC9eCyYzRHIgbF+/zP3N6j9
dzCV2FNAnFx6iTuP+D9yfw67Hwrcr/nfm0UvwGF03dwdQnZYbOrtDOba5vvF
gN8XJvme2L7MpIaXwU44reSuCT8z+P0S2IpuCbpGdF3YngAHY9Ln5HII2cHv
46CJXOP0agOyE8zgXBb22bQZ7cRXBwgRtxV/b8FVAz4rODcnPJbFvBDMXQQ+
voKXPuq+TZzjxPvT4vFNJ4jS60Z6PiHpPbBebOO+HrvtMefCOPkH/RtwsC7i
s24zXwaHP2GXG3VujeMN2C4ll5aEc2Gc3MH2L1BJjCPEWo4sg8MW/LVF/M5s
FsL1p3C+AFmEnxT4BQ76wcWgV7fpUVfw7p0o9J34fzfw9yp4PZjh6bybq+Ct
Bv7SeENuwt2tHN9h2+XBoJ77eR7H4s2n3oXUsyDm82Zzl1Hk728msnSc578s
6bEsps2WzdjNYMf+QIYDzp8q9rfR3kh7Z+293chOrGEnmmzn4e/fR9hJ+r6X
8z7wkPMwWM0ezWSf3kdm4uck/kLF/obaW1oKpoE0/JTgbxRyH9ysJf+tMZ8l
mynbddv5WriYjr8a/MXJfyN15Cd9lmymylP+7i1JOd/Ge1vY/w9a4x7LYv4H
QvIJUA==
         "]]}]}, 
     {RGBColor[0.850061632979526, 0.6805983515227096, 0.24129658349769878`], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1mHlwldUZxg8hBrJASHJvkpvcLDeLN8kNwQ7CaNARMFYJrgwwiCBgrVBR
0CowYEXZRuu+QIWIgKAgsgiKu451XDqjoimKdiq2nXFGrYoKAWUR7e+Z5+sf
d95zz3nPu2/nS10xe8ysrBDCG71C6A3cmQqhPCeEVytDyG8IYXh2CMcyIXTG
Qnj9pBBeqA3hpwEhTM8LYQRn86pDeIe7jyVCeKXSd0XjYe5MBX9MSQht/djj
TiXwFvDfBX8T+I1VIXwO05/LQljC/tw+3CsN4XbW81mvKfWZcJrBHXZyCHdD
cwCyXI8cQxF8ajyEbPi93Rf5geu5Uw3+FGS5BhnmsG7n3v3Q/Ad813I3URHC
BOjEoDG+PIRT0OME5w9xNwH+BO5ex91FrH9Bzk9qQqiB/iMDQ8gBpxLZssC/
h3UcnAvAn4d8f4ZmPvQvg/4y1g80h3AzPK7j7jH0+HcdNgR/ObSfQNbTc0PY
nA7hU8662e9uCqEBWnu5Ww9cHLNtZeNlMdtN9vuUO48iw7ultovsU1AfwsRi
aOLD57n7CTh7CtAZ2IgMZyHDZvhMr7CcB8D/gLPd4HQDv0KeMdDpgebn6JsG
/wvgSQ32dQ6wGjoroH8WPs3GLruw25aWEFLI9BKy3cteEfZcgp+T6D4j5n2d
34BMA6H/HPS/7B/CRnT/gfs7welHzOwH57+RDJKlDZ7vsE7h40bkWwPML/Ve
K7pv4X+q0udnx62HYu8izquqjZME9oDTzP4h4NXonCU64PdDzoOKDewxv8mx
eRL+zaDjDeC/liQOG0y/A/zGyC9JZPuG9UjscBX27uD/AXDGQqcJ+t+hVzOw
b53jagJ8sriXx/4h/v8Mr27WBzk/v8R6rgO/g/VqaL4EzenoeQiaK6B5oMJ5
NxpZ8oibXO5Ogmc961+x4yhs3omuodByzC3w/nes67DbRP6ngeclLMdIbJKK
9ndD41Jo5UBzArBPWwhvgnNhzLGjGJM/FPs5kb8E5T+tx2OrnbC+CNkXtvju
YeQtZP0set2BzPmsa8B/CNsOS9gG89G3utQ+3NZgG0wqtG9vq3LOKnffgP46
eJ+DDZdF++3E8L5Gcov1AnAuwY4d+Gso/vqg0Tmr3P1Z8cb+N+jVnvT+aO6u
4GwSco5C5uXQvwX6DwJvRaY85CnD14dYX8Z6DeveyD0Dmec22f+SRzE9H/on
+L8s5TxXvk9E99Ux7y/gfCp0p4L/WZnvi85WdJkC3hjsNg6dzuB/OfsLsc2U
pPWaVmbdtL4WWRayXs16Ceul0GxFtsEVziXl1PXw2hWtlWcroTkZmi3IdmrC
vsqGxuSoLvVBxq+S9p18+H7Sed3COi/uHNlV4xxQLgxkfxDrS8FZRnz+WGFf
y+f9kOlK1uOx548Z1+fZnPfUOc7fb3J8iNdH3P1NhfFPARZEOZh7snmI1yD4
7+X/5ciwkfXbxOta4vAt4CnkaE6Rc/VpYJ8i73VGde8ZdL+I2N4I/e3QP5n7
M6G5FdlLSyz/bHC3YZNB4PQqMT3RkW8ex15Dkflc0QPna+I2N+P4VTwL5/wa
x9sQaA4j3tL5IZwJ3BrR3AI8EcXe77k7krMMONnY/KfIbsqzaeg7jdi4AjgC
mh+h48ga59x7Ba5jn6HLR6z3AZdG9X849l4U9YUzWT9c6frZBVybcu/bQCxs
wzdN8O0dsyyio1wux461yHB3wvaS3dQ3dhLDX8quzbZHTmTb0rjz4jNkK2px
3zyjxD1AMbODu10VrleqW8pP5enZ+PD7vtZdfWJz1O+eBF6Stt3OaLQdZc/R
Ne7Hol8OvffTtsNu4AZkbWX/VOx5Ap0nw+sw68KBzuU68LezP0T5i/x9M651
qnmbk46BOLRLq11j69OOA8WD4vpa5F7GfNLdSp1q8rySC+0L6x2Hm7DBVVHf
PMLeI5HN1bs032jOKQZ/bMJ1Yy3458DvYvTvAG6rcEwOQd8R8G3DDiuww5Z0
NAOknA/Ki2Pw7yB3FrJ/NnAUtG6H164m9z/1wVbu7az3/FOHvl3wThGjqyRz
tXllkC0vwi+qdH9Sf0hgmyLNTsiWr3kJu/divQ44FJ8VcHcyenyQYxlUp1Qr
ZWfZ+zzoX0CMdgLnVNsv6xPmJ77KvyVRHO5IuBaoJgTq/FPY+hroptEpv8Q9
dBz2+BbdpmPz74AVGfewc9Oe83R3cZXrl+rYkITv6K76sPy2dIDjqaDBM+nM
cs838pf8Vsj6P+gyQDVecxt3v2X/8gbXyVXgn1PtPtoBjFXabrKf5lblgWpO
B7yPY+eajGNRup9Aloaon6rfPp5tOrJ1R0RzZKvrter2cXS8sjQ6x07XJJw7
M9h7Jek6r3qveFXcbmNvcKNxlGfq7b0K3d/3l0Z1Ajo7iIMvkPEp4Av8vmH9
PHBUpWfUe8Gt5/9h1iXo215iOzyJ/Fvxx1To/RH6P0a9Tz1Q/Vt1784G57/q
QDm4O9FhhGoF8NWoR9Qib08f85UP1NsUO9OAFdG8rfqhHqxePIF7dfDo4m4e
OFeX+62hN4d8pd6hnrGuv+uYasiLOdZReJofX85xTKxBxvH97UvVXNU79X/l
5dh+nq2TVdY9rX5aZju/mPTcpHiTPz5ucq4p5zbhu8Hc34V/theb34Y6zyua
W3YAF6DzbHLnplrXTOWgeoT6huY91aCt8HsUmjXwH44NP8RGlXrvpD0naF6Y
V2H7yw83sv8Q8twAHMVvHutO4GhiqDexmAX+Uy22y44W86yJ+N7RaF8Pxgb9
o1xQToiGdFTMHOvv/1pPiN4+g2pc++U/2ba73vvLiZeiKvfoFHsjWh3f98D3
LdUW8N/ATh9zdjE+2AvsrHFdzUraRrJVGl8cbXbNWYvuR/jNYj0fu2Uq7Ce9
F3NqHZOKzVrwlyJTMTJOjDtO7uF8T5nnxNepVTkl9tFjyPD3XPtOvpbPtP8c
8E96eyDnQuCCaM7XvP+HYsfnDPQ7r8EzWDu8roi7rup9qZlU7wjxu139BZkL
2d/d5Fy+OO7+pz74DvoeaTSuZBzX4pjsLnd8S/7e0Nhf5lr3PTSujd5Ez2LL
OxPuy+rPz5Q4pvOx99f8344M/wJnctw9bhYydGWcI5qz5A/5pQdeR0QX+j8B
j0dv5x7WB/hdzf4PwJeLbWfVQr031BN/QcbuOu/rXP1PfXBlk+u46rne1ouq
3CNuBmcHZ8NVc4APZOyDQ3XWTTruB14Vd/xXc2/0QH87OB/4Q1/PB5Jbekrf
qfjhwybn7B7gK/Bbhe4vIefKqMep16nmqvbeWO23hN4U7QnPrJpdC+C5KJrn
NdfPqnI/69J+3HXjQvZ+ifq75k31POl1GusnEv4OoO8Bj8b83UDfD/TO1HtQ
70K9Z5R3Bdh+Lvm5kpyaBzza33kvmdTbdxV4xqqqsh1UD36tsq/vSvjNr5jd
V2abSoYbOV8O74e5ezM0N6Utg2TZmDbN1zi/o8Y5W4g8e4ttf/lhTZljdTI5
dEncsap3w03c7eLug6XuY5JVch4oty+2o8uUKMY0T0mPo9FbUvBYtD4c88ym
WVhvDNXdLmhUpvw20rt/ZvTW1pv7vYxjTG/c30X5pfmls8o1/Ra9ucid+6nz
PY3+r/1nmj3jata9NeY3sN7CB6kZj8TdpzRzHYX+s+TqYuj/Ft2PY5NVyDa2
0n48jfP7WqyjdNVbS/l+G7TnRPX2vlLnlXSfBO1tUU/MbvC8pXngrgbXGMW8
vuM81+xvI/pGcpD63xPNzHq/6e02O+leq76TQtfxGX+j0HcyzRUHI/zZyj32
r6tyv1RdipX424Rqr95Jj8U992r+1RtAb4ElMfeZ3OjbwuNxx7PmVuks3Zdj
z8uabTd9S1BNV23Xd6+cjHNBOXE841hSTPVqs2yhzX1es5/01fcmvU/2YI+G
jOeQ0dhyzv/nFvT+J/n/V+TZB1wf5c6Tac8WsucWeA2L3ryqu+rHsk85eme1
2YZ/GehaqZpZwP6d4L+J736t9ayjmWcc/GdW2Cbr4+556n2ad/5WZnn1vU19
+emoN+tbleaI3sh8eso1qD3lt5DysYwc3xDZWbRvRe7VxMZi4PFqz5ybof8/
L8Lsdw==
         "]], PolygonBox[CompressedData["
1:eJwtmHlw1dUZhk8WIoGEQMh2701u7s1CEpKgHUoKgSqbWoIgOOCggIB1hBGB
dhSotGgBGdQqVUcsgiyyiuwIbtRpGdG2VBYRizMgdaatVkFLCSCYIn1e3/vH
mXznnnO+5f3WX5J3z7htenoIoTothEz+domFsJIf7swJIVkTwuj6EG7NCKEk
K4TboXfVhjAgN4R9/LYe+kgJv3fiTYcQJlWF0K86hJqOIdSyrocuLQ7h2DUh
NPL+CrwTiRAegF6CrDj0ZXhMg98/4FddFkJrUQi3Qb/EmxPIPxdFVrsQ3msf
wlPI2loawlTe92G/Bt7p7O+A14fc718ewo9T8h/tHEIz9LbuIfyHu7sxLjPC
nWrT9dwZCF2JjBeD7a2Czizwmd70TobwJjKbse8jdKhG/xGFITSAz884n4v+
p9BhEvREzuujtlm2r+bNdmTncD+d+89i0wR0bWPtRN5EveH9c/XGchzvl0Bn
FPi9bOgLr+I4mLWzjkXQ32HDPO6nyX7svYz8GdD3cOcHyH8QDHOgxyJzBbJn
cV7O+X5+u8j5pcoQHk+dX4RuQp/B4NkGfjdxt7lbCDPhfxfn63m/hjU+3Tzn
wTvg46fa+fw73k8FnwHgORn/v1YXwmbuT0w3j0XcL00au7eIrxj0wXpjLXve
h66p8V4xVw3dC/vOwm8vOmVxPqbU9grDDsISfDLw7QZ4bsWeKcTL+XTvh4NP
I5g0sD5At6OsV9HpTXj1h+d96FoRNdYjwORd7P1txLpthsfT0E9GjHcMPLLg
PV/xgX5xdFiF/hfqjYcwuAi9EhlJ9s/gr/P4ay73l3P/r/BciK4tDdZX8XgY
emm5sRbmFzi/Hh1a2X9ODuxE1wvV5iWeSeJtN/nxWJZj5E/cnQP/ZfA/AP95
vN9QaF8I74XgfZI7RzL85m+8zSPGerV3zmwCy1YwWJ/p+H6a+JxW6dgUvlOh
VxY6NuTvJmJhbZFtv8J+AbI7puJZPjmMrqPgMTqV/692dc7JVtk8FHvfjrl2
rMLG9+B1U9zy/wuPe9j37mZZwnQdvHt2d75NBo8z6H+uAnuyQ/iUlYd+W1L5
L5tWYuuqlL6K6dnYPygVv4rBrZwtw97xma5Ro+F9uMT63g+P7fDqVe3YUQz1
hN6YwlP+7QuvfawDGY6POPq+kOLXhPzL+CuJzAucP8L+ObCeUWo8O3C/CF5v
sn+RfQ3n/8T3e+DRyL4n/DeCxbe1zl3VvzbFI+eF0A38NpPzBZV+L37zoEsK
Teu3mfAex74X+3Psu6DLxCr7QjreBb2q2LqOgV+E2N8YcWxGuP9yxDEpfy1k
TUP2rwscW9LhCfCowMamdNtYCT240LEpTC5x/gtsng7/l8DzXs4OwPMvrL/D
61NWu0ZyCV9mdaFOQ2+LGm/Fh3JjWJlzfQP+3ZaPvQXWTzn0CPE2Ieb4Uw7O
Y78uYv2UA79k/1WtY0Ux832tZpVkumeMRd9Fld4rXh6D3s79/rnOjzPgt4+Y
3QNe5bzvSHxkJN1r9L4FXQbig3Tor7F5EvYcKHXv+iP6niA2MyLuJ6rZW3m/
HAyOZDkeJ2Prjeizur1rYBW2TC5wvdFv74BdTnfLTrKWgs8zyFiaY/+vhffr
vOmDvJXkz350eTfuXFJO7YXXv3izC2yvw6Zl2LYw6VwVZgugz6DDYt7vR15g
/+e4e+tRZByvcc9WvCgnlBvq6ao1wmgH9ISEe5V61r+xPZua92UnY9IeeniB
e4t6zHHi+zQ+/Drb8VCGb2tizh3ZLNtbsCnk8RcdbkSX97k/jn0PdLgFX/wI
nk2sZ4itZ6tdk/W+gftl3L8QtTzl7zb0GV9n38rHfdH/dNKzhmaIL6A/rrGt
2pfgr1Pw+4Q1nHUra2Kh4/tR7E3A642EfS9+/eC3MN/zher1SN7fUO5ZQ78V
oe/RGuOpGekrfFeO7m3gc176wL80bt1lo2wdym9p0Fe5U1nvmFJs6bcq9s3o
fLa9a6Rq5RXWddADkdcGvSlmehs8v1T9qHdvUw9pg348FS+7sXkDut3MmgU9
mzUEujli3bLxUQfup2HDtdg7i/fz4bcm4thTDM7i/l7qx05ytQf4/I546B1J
vWWNR9dSMFuQ6xo0HixzVc9ZeWDXmRVHxuVOxmQwb+Nljg3FSC352FJj3b7l
fBDnh2pd7zVjHYQ+lu/Y02/L6j2TqXcJoz7QfyiyrX04f5l9W63f6v7/oM/j
sw+y3ROPQ3eudC8RT81iw1P1RzbJtrUVrkWfo08T+/ll7gXqT2uxb13ctVs1
fDeyN0eM30PgtyjumqLaIpkfofuYmGvtA5zP5Xx1pWNdNVSzw4pG545mnh9K
frlnO/XXZnhtAcMpma5RedSKB+P2j+rzYuQv1jzGykdOV9a9+Y4PxUz7Ctss
20fhow81a2PPYeUHdyaQS89VWz/V3EfJz111nkUUUzfxNr/Rs614nCAWvivz
7KYZ6Sr0uKSxE4aq5WPYZ2XbJs2ey4scW8JoS8Qxo9hRDenDPlLvWUAxGoU+
WeHaqhp7CPuP1lp36dAdfVcWGWvx28r7gQ2uJcqXAdDldc5l5fRP8dcXceeK
MOlIrKfFPdtJ/9/wvjLm2qz+odnjeIHrh75ZBuCLj/DRCLBfqBhAfsek+6n6
61J8syTq2WEY94fA+524a7VyULmoGqVapfqqWamm0HvVsG+i7onqjfJxBvS1
hf4+ugEZVdSi7gljod/qoVtrPSvom+lSrWNUsSrM70C3W+DxTWfP5LvB4gj2
1GVZ/7HIy+7mWUH5OgFZSxKeXdTfS/Hf7V09j+ibYg5nA4mna7Md81mcvUK+
fpzmfNusebDAvU49bwbvz6LTfepF7O+E/wuN7m3qUepVynHlumqCasNb4PXC
Nea5Bl4H4fl+jmuqetUSbOqR7XybBp6baixb9zdC/yRV377vKYqnhL8NNSN2
Q/52MPgs198AQ9Dvdfanc10vNXvrG7JPaj6KRo2ZsNOdN+qcA8oF8djBPrPK
s+Ue5F1G/yPIP5jj+n8KXTcV23fy19v4/pWk9VU8tIDlU+Tbk9Xucep1xal5
TjPjSX5PVto/wq8CelWBbRVGe8FjEPo8nO0cno49r0XsG/loKbKGlrtXqT+1
QOeUmZd88rW+H2KeD5q4v477gxP+FtI3URL7y1P1WTPdJe5/Vu7ZVfPm70ud
g8pFffNO4u2UMtcS6TS4whgIC/nwENgU1znW1CPide4J6g0l0BHWzfnWRTo9
pP89VLjXaGacQywt6OpvS8X0UOJnSMS9Uz6X768pcGwrxlt5H3qAXxf3LPWu
lrhzUzl6P2+XcSc3y3gpth+OuzarBo7iLK/KsaEY6AR9NeHZSTNUFvSwmGuv
ZtD5yL4zavmqEQ+ia0nqe0D1527Ngg2erfU9PxJ9FyfsD/k4t8QznGY5xdBh
zn+V8P8W1MNG8v4kvx3LcU1SbdrR3f9b0Myp/2XkVLoeKGdzoX8ec64oZ57H
F8+DWWsXY5IGNiVRx7piXrnSr6v3qmldEp6RNCtJ5ifIvlTvWFfMz446xoSd
MFwR88yp2VMy0ns4hhRL+h/RTs7+D7AMgWw=
         "]], PolygonBox[CompressedData["
1:eJwtk0tI1GEUxY9i9lKimcnXmDPq+CK1Vm6lIMigEvc9nAopUgc0y7IsJ8jw
QaaVj7Cg2rRoFyS1SMiBHtBk0aLQnpsSB6JCrU2/y+ficP9893XuufefH26u
a0qWVAVWgOlC6TXYHJC2pEhxvis2SOUgFJSqV0lF2Je50gswlSnV8radt06/
dBY8ypNGVkqPM6RfRdLAWukPNuyTDoIu/G34o9i9xO8DX7Klz8BPvTf4qgMu
1nKSifPzloR9Csb5nqL2Q/ImgM8r1cH9iEeaocYsWILbIjgNr2b4LVF3GzXf
kpub6XpZz0/U+QjmqZueKo1Rb7hUqkynTwFagGkQ2igVgjL0SKyW5uh1GE0O
gUGbnR5XsW050nHQBacH6+CwSYpQsxm0lEjX0/Bjr5guoJPvMd6G4OAlxgN6
QuSukSa9bj6bM4b/Jtxj8PwL/wj9OoJuRpt1EP8odU5Rr5e6feAMsS3kdGC7
0fGSz2ltmp8n7gbx57Ct9Kml3ztmK0ejCrAHbXaD38SWoUuc3G+8l9D3a8Dd
g91FAi5H0eonmvnJz12GfSd4a8A3T8wHNHyCbu8L3N3Y/Qyh0yCoQdcJeuzE
LpDTSM5SqdPbdFc+e6dvTxa1iE/kuJ3Ybu6xh35C4nxfznD6tjLTMdAI7pBb
Rd+7+e427UYj1IzbruFfT60wGGGmf2g1jF1g1sVlvUy3i+jXjq8be406ldTb
6nE7td2G2UM9/GaZ8wdzzYFedjjOj+XD38d3f8jVtNq36JFE/G2sh5kuMG+g
TEor5gaLHR/jNQq/V/BshO8ss92Hw3c4PGMvz0EN37t425HndDQ9U+nTwC6j
XneHdo/Gx3jNwO8AffcHnTam0QkwjGYD1G/nvQn/yaC7a7tv09o074NnDF8K
82fDNQvkgSjc1+P7D78+rLw=
         "]]}]}, 
     {RGBColor[0.875320331859199, 0.6430795769996996, 0.23025963168671312`], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1mHl0lNUZxi+LSCALZJksM5Nkss0kIfRYTFUUUQRZBUWtsihC6akbggoV
[encoded data, 4260 characters]
qNlbdjtW4BlMvfennP0PLAxFeA==
         "]], PolygonBox[CompressedData["
1:eJwtmHlw1dUVxy8JQl72kORleUte9peEYKlQK0oVCiqigFBUFqkwTKtiWbQW
wbphQasWcUEWQRiBUQhbURAEtbZFOyqI0Ba14lScWkGtVrRYmHb6+fb7++NO
zu/de89+vufc1E+ZMXp6Tgjh7G4hdOfvvNYQ+sVCyELfCX1VMoTRPfjIC2F4
VQgP1oRQf0YIZ/bkbzqEufUhxHNDqCoJoX9HCN+UwwNevyjmbHsIXS3w4uzV
hfyF312VIVyCwI/Y78H5DKsb/P7DdwP0ZYkQjvH9E+4sjLPXGMK1RSG8lR/C
nqYQLuRMS4l1XI3s/ciYxt5keO6D3sBvA9j7Ljqth34ysucwOq2GXlYHD+y5
nf0LsaeN3yahWyP7e7H1EfhfBf+XuLMc2SdxxIuYPw0dvoE+xpl7uD8Bfxzm
fgwfvI/sifBogdeUVAh/YD9ZCt07hCFVkSx+exTZG7BvPes49z5hfSfp/QXI
u7whhBv5nsjZFvgf5fyiuP37b3xyM/yP9wrhM86u4kwVshKs1T38m/ZOIe8o
5x/kt9syxKjDvh1Whg7E7kR1CPOLHZ+F+Ou1Zv5ie0tBCK9Dt7baFtnUAN2O
D/+KLq+zlnJ3F/rNivS7HVmDseFiYvVf+F0M/xx89m7MMVPsqittTyPnj2BP
TkUIv4rkDcc/+6vN/w1WMbKSrD9D30QyNuOnAeTPc5wdSExuwJYk8rqCczAF
fTs63saaD98FrFnYfH2e/TMF2V1Zx7IZezZAn8g6ltNZp9G/EnkHOX8m38vY
e4ff3oz8NzFjnaX7BL7j8OvOdxX0UWzIhc5yZq7iDf8W6CLiVY8/foN+n9cS
l6xtuQ7+n0NvYw0o8vlfQy/DpkklltnG+RRrE/RAZNbB7xZ8kMx1Pc6GLqEG
biDfT/N9H/IPdpjfGr4PQC/vDOECYv091lLoIWnXYy76DIUeVmO6O6uR88Nr
TCuGTXx/Dv+T8F+AzluJ9YN878h3jYzGtonwbCTWi5A3Hnoq/iuJWcZ1nO9f
49r+G6s7/DaSA2fnu4ZS5OoZHd4TBpzC1gL4X8/+x9hwPbmwqs5YI8y5En4P
t2Eje8fgP4Hzg8mZ0yWWJ9vWsh5A97O41gPsOYo+Y9FnGN8TqYcCcuIRzh6C
32zkPxzVt/z1J/bf43sl30+wjkCfYu0osU7STT6Wr/XbafZmJp0Lyom55Epx
2rHejIxC6J3EbFmevy9Bdn9qqqnAOb9J+sNvCOf/wfcg6IHNrgXV4LnQc9rs
rw+I+S3Q1Snnsuq7FV/m1pu3ZHaHXp6w7Rdz/vGEa1a1O4F4NUHH0PkY/j5B
PM8hNvtJpNFFzrcT4M24CN9L0XkS9mzht40x5/Q+9rYnjKXC1C7kjUvZn/cg
fzz0bnQclmN/7Wkz5gn7DiHjkTb3DMVT+DcAfq9G9sofe6Fj5NBWzu9CxhJ0
O5V1bXbA81v469Na26qayse/k5H5KrxeZo2FriTmP0BEDvKfx9aHKr0/mDvv
Ye9IYrClm3NOuXeg1fmh+n0Tuhf7izj7F+7cC7+vspYtjPgaukeT99VfzoBu
bLVv1dPi6DME/Uci++/YMBR6NTHqzDdGXYpuNVH8hElf4ot38OGYmDHkeXy7
ucF4qprfCL27yb3uXfLtDe5/1WD8Us4qd+eohxW6J6j3CnOFvYpxnuoZnUag
2wp0rsO2l3s513Vfva0e/Y7DbwUyy9CtsN7YLgwWFhe2GzsGspZgz8yUY62Y
z4B+IMKDa9ChN7rsa3Wtyaf7oedF/V35Norze9vta+2/0u4ZQLPAHPz1O3Jl
Tsb9S/n+TZVjptiphz4Mr8W1tkU2/TjunqPeo55yM/n0KTZtKXEMDmFbETYv
Rt7b7N+N/HUJ14ZqZE3CPVX35fOd3D8n6dxUjgp7yhOeBWTjQmzd3uJ47uS3
Z6G7lRuLhcmb0PW2Gtejan4XtoQ+zuXz8F836I2Vzi3l0GxsuQCbT6HvWvzz
Jf6+CnmfsXcj9i3Bvmtq7W/l933cnZ/2vuStZP+FGs8y/fl+EfqKjGcRzSQf
J93j1evL8PePiO2j1OAfyeUR2HAA/3wZ9T9hXl2nMV5YX0bMsshbx/21rFuJ
089Z1chv62n77+f3r5OeL1QjIzmfiUezIDo+xP7b3JkW4e9h6Cfi1l023Auv
Dfy2g/h3Q98niVVFueOtmlVtC5OETeqJy4ltadQfhMELOFubNX/hZ3XWmCBs
2MNvu8n1kTXuFeL5PvTetPNP9fYK9HMJ06rB8ZwfnnJ+CcPuxJ4R0fw5E56L
0X1qhW2XD2q4/68q56py9mZ8PyLCl1P4vCfxfirr3q6e/DT0SvXgMp85TH79
vrdzXxj9W+g98NvGd1/OP875Oyqti3S6BN3Owl+dPY0n34beUmksUj7dz/5G
amplsfvH+WnPCMpPzcgXdTgmio141MWNmcot5dgPybXN3F9V7Hz8J/n4/Tr7
Vj1qCPSYuGtd9aBZ4Ka0Z3P56FJkleKDEtZ68mID65dRv9wOzzfg/bOUe6/w
YzS6jEfmF8E9Xb29DR6Ho/eEcmkZ/jq/zDOMZpmCCJ80b5RlPANqFnxXNsB7
GjofL/IboBD9RjV4ltZM3Rd9qmusi/aLmvxmkSzJvJbY9evw20V4uoazoyo9
+6lH7su6hlRLmnGGsj834dpTDa7g/vNp57J+24P+gzvdC1RzE9Dt1rRrW/l/
JXdHwy8n5pmzi/3Zaeea/Dmvwhig8334fhp5N/RyLSnnp6LrCnTqLHLO5Hca
Y4W1Z9FTL6efjq927/2I/UHsz0r47bAQnjvg3VrpWlfNb8E/S/ntp5G89chb
WuHz6jG3kG8vRfZpBniZszPQZ0bM+REvd09UPioGO4hnKDcv2SDbP6zxWd1p
bLBO0m0zPh+Hrk/V+Lx0uCPtHFQu6o2yiPzJ62N9VV8x6KXYvzvmmUGzw8FG
Y5tyqpPcewr7dhZ4HhjB3jNtni1VU6qtbL1zSTnVBr2m077TG/QidFle7beI
+qHePnoj6a2kmXNQb79p9S0Mb8ffy2o9y2jG68f3F9TztXnur6Upz/ya/Y8I
A6v8xtBbQzF8DPq1pGctzVxb8e2N0TynmXYd/jhQ7VhJp7HIfqzTvUU1koM/
evSxb4Qvl1V4RtSsKHxKqr+nLFtvslz25qXcG9UjSzlfiE/GRPPfs3We2TUr
CbP64Y8NyH8rzzmr3B2UdnyEOcIevbGVG8L0LuFT1vOG8G8r9BUR3gjfNZtt
bXZsJH9zs9/c6reSUQGvBSnXtma6mfi2K8I3YVR39JlYad/Kx9MznhHVi9ST
+kIX1dtXesN8WG5MEjZVcjYurEr5vmagj/F3ivxIsq6G7yTWkIzxWzEZCl2A
z96Pmb96nzBaWK1+c4h8PtHs/qAZ4SvoupT7g2Z4vX3GZfz2VH8eD30w62/N
dIeyxiBhkd68iXrHRL5RDp/LvLGtxdgv/s9AT0bHa9R30bmeFVcMcv0mq2r3
zKjZUTyzCb9p9LaRPl2N7pH/75WsAw3uWcof1djJWmOosFJvzGLoERG+aKbT
/27K2i1LMmtrPSNqVlQMC9rtE/FXTy5IO6dKo/dcPvdPJo2v8ukH6PJJh7FA
M5xmufda3X+Ed0egc4n5E8XOAeWCalr5o/8JrIPfGjBpZaH/x7MK/03J2Nfy
8WT1pSrP1pr3mjN+szVG8+NN6HJeufFANsk2YbqwXTzvRv7TaWOnMFHYqDeS
7FHNXM39TMZvdcl4IemZTL1gKXd2cTe3wr1ZNmyC/86094Sp84jP/wAWJrRQ

         "]], PolygonBox[CompressedData["
1:eJwtkslrU2EUxQ8Wp6ZSTZu81PalL01jLY5gVg7oUkS0WK1gHdpuFIc+beIA
2qQiRgvajXWhIuJQIaZCweDwX4gWlAhdS92604q/y9fF4X7vDuedO6SGwkPD
SyRtBkvBh3apd5l0qk0a9KQh8LBbml0lTWL7EtJR8CspzYO5uLS3Tqq0Sj1N
0kEwG5VONkqPNkifAuwKaSc1hRapCJp86Tc1a/C1wemDBngiYGOXNNAgbcJO
kHsfePxn/XLqiD9ZKz0Gp3kfwLefWJ5/58B7fBP4yviyaPDQkEXDAu9/YCs9
bQG3eZdWordDuoWW7/T7Miadg/c8SKEnANGE0xknp50+dtFHErubHveAG2i8
Dh7wX4+812gtwD0K8tR8gTeHzWakzoi0LeO0Ww87qA/qpbtpqRHO1YGbjc3o
TtrFxtNu/raHEN398H1kPxE460Ed8Rp9zNm80X8CDMNzBp0h9vKihqf4D8N7
BIzgP0v8EnYA/yAokveNvJu+0249rKOv4+wh0+X2YvvpZF4h/wujbo42zxy9
jIAKPDU4Sr6boc3yRczxjuEbBz94T8dcvtXF0RADb+EpM7/nntNoWp+R95X8
K77bne0wz14vsN8c9hq4yPsq9hX5Uy3uLu0+F/BViX2Gu9TMvkHR7gTfGPYn
XPP00ZF2c7R5Vrmfd+AYsV5itRR81Pczq77A3bXd9xT19+Cpxt3N2e39Xfzf
H2yZ7zegQv12ePZFHa/x97S6O5mkdpS5FkAz725qE0l363bzdlt2YzPUTsMx
w9z/A5O3frY=
         "]]}]}, 
     {RGBColor[0.8944429578181592, 0.5982355862802514, 0.2200502237364625], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1mHl01cUZhgeEEMIWktybhOQm92Yhe6qIVotSoIo9ispSRVDRUkCsUHu0
aNyQauUIHhEXUBDQqigEWWyRHSwiUNeqYNUWpYgeEZTtuODS2uf1Hf+455s7
v2++fZvJjL566O/ahhDebhPCccA9eSGsAH5VGsKQVAiL2G8pDiFTF8KCrBB+
nQjh2+4hfMfvqY4hZHcOYWf7EJ6ASCH4Gzm7HxqDWW8A/zbw+9T7bEHK53R+
C2feLYdudgiTK0Po2Oz9bGBdjxAu4/uchhC+QI4ZnO0ETiJlOqJ3ZzfTEp0j
uSEc4jcsJ4S/9gyhAzL9BXgCZweAP7gCmtUhpDqFUAss5Pch8iaBa5AhDxlG
F4YwDhptOZsF3hrOTkWXD/ieLguhuUMI5cCCTAjXQ3Mr31dXwQP7vJwfwsfC
Z79/OoR76s3rGPtLwE+w/2xJCL/ELqdAcynrPaW281DwO1abZzZwJjQfQbbP
e5iWaH4E7sx2IezjdwW/dK31OloQwlnY6DtscD00FyLfN6yvYf0Q33Yi2yL2
hvO/Bl43sX4YugvA6Q2vgE3fxYdr4fld1xBGZtnfL/PtRuR5CdgLO+aAP5wY
eB15FmGr4UXoBc3u4B+A5isRPythG7bBho+hw09KHA8XYIenI/6qAusvO4zA
Hq/BdzE0d6HXT6FTDZ2Tga3ofA84ufDckW2bS/fV4B/FFy+2M2/RbIXeIH5S
6Vr2WsF/j+8n8Lst8lrDfht8WQz+Jva+4jcbXbsjz45K8/8UWw6H73jwHym3
b+Sj85C/PBnCMnS6Fzssxv6ndSH2iJl0vvGnokubaM+2wIvSjuFa7P0F+BPA
/7zWcTS+s2nldrTNA3gl4I0A/gmcM4u9N47YWRR5PQW8gxwsIklvYv861u+z
PoQMU+L+7KTP6OxAaHzL/lbWx6DdvsHr89G3uMw5O4Z1YaPXFdjjDc6cC539
0NlQZV2kU8fOzinl+M0EUhP4C4u9p2/KpX75lr8cvfsVOI6GxHxXrqpWbEKP
ifimJ7a+KMv6S9YLoJUNnJSyb+SjLeTQXmgOg04XdLoVXZ7n/CBib3MXr+Vv
xaXi8xjnJqDnXaxvh04+OlZj6+7o8jC2W4deG7DVQn6trJ+kJuQ0Ed/Qmcf3
/IRl+i3+b+3pGJ6NDeZlnDsD8xyviqXlJdZfdmiBz5WlPjsG3PykY38G35fA
axm8boF+a1y/CO61yDmDs9OQc06tczvB2a1Zln8YPAZlWzbJvQN71vPtS/i+
DZ3X2PsEOk9GGeQT6ayzXcA9Pta9KnScCCztYp3LOHsF8Fz2W2pcH1QnboVO
D86uTduXilHF5+B8x/Bw9mtLXOteYW8BsnbCd6OAmzh7MjgbgU/js7M427/M
/pMf/1bi2H+BuvAfeJc3eX201j6QXNMrLafW8vcY7DMY/tvZnwKPcnjNB57J
2U84ewZwVdq9Qz3k7O6uX4o55ZPWP+aAYIbYHxtjWPrtyzWdXth9OnG1H5wh
Jd5/q4trwdoy6yX9JhBzA9hbB+7hXPcb9ZpDcX2SvpU4d95Fzr5NllmyT4R3
X+L/1jzHgWJAsfAo305kPZDv64q9XkfsfF9iH8lXu7J8VrXuJPBS0LwxYxk+
i3xnx/hRHEn2fVGvIvhV8CuMv0yebdq33n74Avqj4DsPmy3GlvnNxskDbkDP
z6C1vs78xPcG4mV1sWPm4RrXQcVIGpk3gXcQ/I3Ai4vMf0CT67T2Zbt+OaY5
IMommX7F+SE5/q/1+GrXHPWlV/Ht2tjfBdfF9YEm/9/f5L7xUa791b/J9X4k
/Mdgq59htwnQzQW3D/GwPji+Fee3IPukEvfK5fi5qoP31W8KsU81+ElgRYNj
KQ0sivvPQP83kf5o4IRSx1yC+rE32z1a/lD/OZhrmXKgf0c7x/ahCs8zX3Ju
Ledvgc4aYJcq+7kI2T4vtY9ysMOp9Za/d71nk5ZczwqqDaoRP/Ciht/N/sdJ
fz/czTidymL9qLD9VIdlw3WRb4JcPr7YMrevds0bF+m3jWvVMtUP1W/lp/CE
fyI8J9e5Fv8RuA35ViDn1nrXF8VwOTH2XKwPTxJHf4g215wypNrzoebEpxvd
W5KNjmHNBPLpNz3cs9S73kzb3wPxc0uMybmqQ/y/D13eaHBOKDcUU1sarUMt
sfpqqfNueYXrl+rYeuy9q9hxd2/C55TTOvt2pf1Xxff765xnoxv9+2GNzO81
uI/tanDPU+9LIe+L/J+GPKfDJxs7pvH97raOhUMxZ49EObX+sY6IX32cUTU/
VuY5L4bE7wcjzj1VpjcMX+/BHh1jbB3q4bmxC/utmmc0mwOXVFpOyftZg2lI
P806svGBBttItlpC35uY47xVnuamPGMcLnTsTIt9fFVX1ybF64gix7jyT7Ph
3bH+DO3gOVP1ZXyu5wT5WL36vSzPXucnnAua8WdRx7/hzIPAZdjhSuywAri+
0rXjKuz5PHEzH5zNwG5J5213xXiR83wsMnTmfwX7XYH3Jexf+XlGwv11lO4o
fJsLzkZodEq5NuzD1vNqHFeKL91hNLuW8P0Bzr7E2bEpzyltctyjzyp273kc
vns4cyFn9wJ/XuY+qH54NbExX3yhUUSN/hQ79ACeU2k6Z1c6/iTnhdD/R71n
3NeBnZOOn57I1VLn+ekG4Kv19sFr9b4b6I5whNh+p9LxdLDBM7Fm4+/KXCf2
xloxNd8+ziWO/pfnGao3cGmZa7tq/NoC31na4ovJNe6Pg6E3NOMZvLXIvV8z
QN9iz6CKk1OQ5zB0j0H/SJV7g3pEHWdbOhhfs9Q/wR+JPBdgm+cbXbNeANZB
czf7tcDejZa5mfXOAsfDcvUH9iZk2zeT0l5/Wegaq3xQLujOoFreB11fK/Je
54xzZXfE0f1H8TmHvPl9nMemYv/HkbUbui8Erizw+gnWqTr7MR+cphr7Rf65
nP/b2J+JD6dVuo9ontLson7bTE5dF+NGc+6gMvPVPez9PMeeYvBd5PwQ2f6L
DScgd39suBEaX8caqFm+V77vpAs4txX5W7DJduAD+Olr5Dmj0HEsmt1UV4mJ
Jdh8GbBdpX2ke8PhCs+Qu0udV8qvc4nhKXGG1Bzdvdm1Z1K++5D6kWaH7Fhb
OgBbiePTickltb4v6R50aqnrsM4qpifnOVduhfb2BteRvwPXJ+PMU+y5R+ub
S+wD+UIzcq8az20nAleWOCZ1n05mfCcsBD5X5JhIZ3wn1z2xDvxL8pyPH7A/
PWFfXA7NlkLPjZofDyQ9s+ne80q969409JiLbvXIf79qvO4ziklg+4Rtvg2b
X550jvfDn2dw5i3WvwBuLnQ/Ul96vcHrN4GL491cPXAKdNYh5znompdyXGXB
cxm6vAWvHhnXC+0r7lZUuL/ojrUZvvPg9VyZ32L0HnINso2EzhbWI4ArSj1P
H6qyDtJlc5wHM3H20p1Wd9s31WcKXZeK8eOcqPtDle7ziknl/Mqefut5VvGc
9j3u+rTfVnTX0J1jbQfP/LLp5Di3axYeGu93ygPdizRTFKDHpbojQ2cUsDLO
DHuLXT+Uz5qXjmKT26l1/agHY8GZCc0xFb5vK96GlPrtRm84q7H/lDLXq6nk
bhLdb5RP2VtSZD1Uw84vMY5mf+m3I+p4VZ77k948dF44qn8jke9ScEYA98e+
3pkY+HfKNeVwwjH7cuxrqsfCV46dAtyZ7XqkvFX+rkTm6WWWTTJWQrcvOJm0
3wbGxfeB8gL3z3PK3ANUczrqXsL6CnCGqz/UuO/r3eiulHvrcuSpTTgGFAui
J3zNPe+nPMfpHtw141qoGjk06blC80UDNC8Dv77G71+S+RrodE2al3geV25/
tyuP8+VxvmcfSdh3u+BzZ8r2yFM/afZMk2x2joq++CXjm57eF8elbMNZ0Lg2
5bqh+qE6JVu+g8w3Z3zn/T7PMfhYfE/Q+5fewVqA85PuN3dgq3MLPPNmNXt2
1Az5BnaelfSbyXngL230jLKs0W9k6lEBP/8rvt2p9jzK5jN61wLOrvOc+mCd
3yh1R9ZdeXva8mxL+z1F7ypzqsxTb1Kak/Q+pZ6r3tsn7d58muKq3jiX4osV
/LKZKy5u8v1mcTw7O8qsd6Dy+CZZVO37m+IkXeC3Oc1hs8C5hP1RuiNjtz8X
OhaT7BVlHJNLwZ1bYLutgt5VSc9tQ1mPbLIMlwD/DwBeHjE=
         "]], PolygonBox[CompressedData["
1:eJwtmHlw1OUdxt9wbkJCQo7dJJvdZLMJ2SUJrUgYHQURRRzBImgrh4DjgDAV
vBCNokIPGcHRMipUFLAitRDkaKsoELzwqPeBtmIRy2BHAZWjgkjt2M/Ds3+8
k/fd9/3e1/NL6qrrxl7bJYTQlhdCN/4+UBvC9z1DmMG+riyEW5tCSOSH8CH3
7ewzdSEMjYSwoWsIb9eE0IX3FT1CuJjzwSi/14ewjvcLoH+W+83lIfThfhM8
v0mG8HDK/Bq5P680hI7KEKYj+BbelHNXx/vlyNrKeVQC/ukQdvF+G+/38H5D
RQi7udvcG/n9QpgKzTjOoXsIw6tCWML9m5zv43xDdQhR9D0DfX/Hkw70aY+H
8AN3t6HPo+hbCc3ryD/K+S343cG5mvtGzqXoewv0s6D/J+sFdO2DfkvzLONq
9MtHv93otx3+Mc6/zYQwvrv9sy4WwpYG638aNM+wvxYdZrG+yobwNasPMhp6
Wr/t2JdB5ynQT0HeJGQvStjeAn67hvujyB/G+SQ0S/D9RN5M5u0m6PfCdw7v
I7y9lPNs9t80sy8I4VNs/Jr903HHawX0L2F/J/yqOG/h3BV+RZzvgf5VfpsC
/UTWDvaXkCRT0a0Of++K2N6fwKuc+5Xcf4WN+9FvODw+gtd07P+R+9HwewV+
b0NTDG1bhWO9k3NU8UanH4jlRX1CGIHvp5M/i/Odf5djz4lq05+LDTPJxw9K
bet98DjE2wr4TWBfAs00+P3IfSvvr0OHm/Hts6wzeD+I37awn4y+r/SwfybD
+yb8NzNim54nviPgt4D7wUXkC7Fck3Tun4R+LfvtVeb1MPw7Od/FamffJH2x
d3GFfScf/hL+z3O/vKd1+DX3V1bbl/LpBHRZxnml8q1XCHn46p1+zm3lZBH5
0q3WsVF9bYV+BTbW5lvecvY3xq3bYt48iazTW0L4Etp92DOQ/VR4fsh9pDCE
p/qGMJY3Y3u6xiZjy9/w/93F8Mb/r7KvRqcq1lFy9z+szUnXy+nI30a+DES/
s9CvhPdb8dfZ+G8UsrZyX8zbkUnzlk2j2Feg4+JurvF1vG9H5po8x2wm8X0P
fs/k7B1OPKci+41c/V6Pb4qgv5T3d3Hfm/1ZZa4V1ehCau+ccvPrhGYMTeUY
/ujXwzUwFlm90aFetY7PD8FvXsKxV3zms+/f1/FIkTdl/UM4XuPcmoBNf8f+
/ZzfwbZJnCfUOWdEn0c+jkzbZ/LdFtbB1hD6pl0Lqoko/N8kUAPQ/d4SapB4
fBH1fg383oXf+DrzVs4p90aRcwXk3gh0PgfdL6uzLtJpNPcTY76/jXx5C3v3
44/DxK+O9xHeX5S2bqd6APafgX/3dHXMzmTf1uL37ejwEvtx6DOD3OgPfV3S
NSz9VyCvFP33Q/MOtB8hc2nWMk7JQv4BZM9hjSlwj/k47ZpT7R1A/mhicRD/
7Mb+fyNvKP7ZG/Us0ExYx/2bZe6N09FhEL76C/HoyX4aa0CTZ4beF/P+KWL9
KDJWd/Gbv/L28qhpr2YN5H0Wnhu6+NzGOYKPevSyzfLVt/jvX/jjZfSpRZ+F
Sc8C5fjD8D+a8d1M7D2WcU4qN4dAPwtbfoFPLoN/DD8Vky/Hcvx2QJOE38/L
3Bs1EzrQdXDMs0U5/i6+/C7mefIc/Nvx5xRyujDfPWQFthRQ88PUq7nv5H5h
reln4d8F8B5CTHvl3i9A92XQPMRay+8drG1Z0w7l/VbkL4VfXqF9kI8vtmbN
/xvePMe+CJ2fRvf7se9FdItg03/J5T8hYzW2r874/mzer8l4Zmt2v8R5HvRX
4Y826cubEa2eqfKnbJJth8nZfM57sbmZ86hK077IuhP6cdBXwjPNqkD2q+T7
qoh9dDP7eaX2vWagZuG+Ks8WzZjz8c3PiHdlV/O7A37nVFm2dFiEf0KZe6V6
5jzkf1vtXqCeUMR9/5R7pXrYWcjb1uB81MzuZN+Z9uzRDDoJ7SOVnmU6f8+5
H8ynFHqmabZlcE4CX/+GeN9LvNMpYwfZo9irRy/O5fPjcftEvingtyPQb4n6
Xj19Dvf3pB2LhfjgdfJvAvJPU/zw94X4uzPm3jsA+ws47+TNA7zth87LoH2j
0b1CPUO9RZhD2ON6+toNrLnQ38aazf4m1vv4YG3ENa/a3xFz7JUDypXb454F
f8bmx5qMiWSfZqhm6csxz071sy/gV9rfvbWeVc5+RJn1U769h66ToO+IWOYH
0E9vNNaT/2ewL2B91sU+bkZeqtlYT5ihnv13NcYDwkBXQP9iqW2XDMnaHvWs
1sx+ntwYmMtfYdA26Ofikxr0nYW+Gfx/f9T9SxjiCd5Hefw58vORv5l+80iT
8YDol7MfHjMWEyY7DV3OrDF2EYZ+kPz8JGYsJ0yXFZbBp5t6G3MJex1o9exQ
Tim3hGGEZYRpy9CnT9RYVPNuPvr0wIc7urtG89kPLnNuaIa/1uyaVb7IJtm2
Hp4fRoyBY/jn9RpjU2H4JvkraSwoTLil3BhU81U0lehSxfooR/8YtmyMG8sI
07wA7Y01xvopYeRaYzzZIh0vhl8KGUMixsRx7H8q917fCOvRtTDl2f4Zb7Ls
Mynv1TM+od4HNRobCU8shz6ecH9Vvs2B9/ase5l6pHrtFNZk1iTkTGZtTLqW
FLP17HeljKVk7ycpzwzNCs1AzcL83HzTvNCsLM3h/U+F6YTFE67VE+TYYfrD
gaj5KZ552H9Bs+tD82REs3t0e64fqjctyXr2CxNMJDZ3pu07+WQAsZybcj9T
/t3O/pK4Z6lyUrl5qMG5Kky0j/e90sYGp/C/MEzCs1szXFjkSIN11ftPufug
2bWnelZv31jvfFB8NrFfBE1HV+eQeo9oRKvf9rAfmjQ2UT8RFpGP5euJrCtY
hY3GBqpZ1e77OXmqR/Wmhip/i6jmD1ALJQ2ebZpJmn0XlLpfa8atxP6RCX8L
ClPWEovVcfdO9Uj1ysMx4xvZfB35cKTevUeY7bBsI4YzSowZnmT/QtyxUg2W
qr77e/YIw/Rh35bDt+JZguzHW/1tIowprDm0xb1dPb4f9p2I+9tMOfId+/ak
Y6cYLokaIwgrCGMuop5rY55f6hd1+P/3WWMr5YOw4rk5/0rG0UrnvHJfmP0a
+F0atW+Vo628Pw/9viwxxtqZdo2rVlWzGyqNuYS9NDPGc060GqsIswgLqSer
N2sGaxYva/D3wipkPMQ+2+TZJpljkd0jbV/LP93YX17n3iZ//wN+/8N/n0f8
DfJT/JtMun8Kk9WqVlqNTRTvmehT2WjsqTcx9g319o18lGY/rdXfGpoJmg3C
GMIawmD3V3gGahYKgzyQNQaTfX05z0a3dfTsLoW2pwz5oxP+VlA8h5YbIwsr
65thJ+eXW4yNRbOjxd9w+lbQN+N9yNtY4V6gmI+r8v8Y9K2ib5YHuStOWFfl
kHJJGECxVEyvRP7xjLHlKf9TL+VR6yafV+GrCfw2vsY9TL0slvK3sny6q9Iy
JVt4SP8LKYoazwgD9Ep6pmu2a6Zrtp/eZCwt/yoWiWrXunryGu6jLa4NyY+1
+BtOvMSzN7w/jjm2ivG4OmNq9UthpEzcM0mzSf/DKOb90339rSmewupPpDx7
NTMuJMeOx9y7hRmEjf6Yq2dhfH0bKGaKnTDga+yHtbo29hOT4a3GeMJ6muGj
oD2/1XeqAdXCqiZjE/XgP6Scw/KvMHAHuu1uNn/liGphecbYSd+oS9n/Ksdf
9Tuf/ZjcPNf/JKaRjwsTjrfq/e6EMYGwgXrMevx3a9bYXjLWYf//ATHksxM=

         "]], PolygonBox[CompressedData["
1:eJw1lMtLlGEUxp8CL2NecHRGZ0odlUmbwXUZFUa1SouiIh3RMKMMM6gWElTS
XxC0sCSlKEjLclxkZtrFyqAWtUhKDbpYLaJVF9Fo0e/0TouH8837nfec53nO
+aa46fD2tsWS1oAkcHCZtDtZaiG+DkpvQENIakyVpvOkWc4/gbFSaX2aNEqc
JmcGrPZJleBqOfUypD5iCu/feiQPMVAgBcFUCXXBdd6vJe8xdd8XS+/AR7CL
/A/EoSLJS99h4iF6toEyuFRxtjzkelnPc/TuBCP0qILTXWKQ+5PkBYiXqX8F
bFsqfUVkRyF3/NJ5kMz940uk52FpFagEqfRLAa1e6mdJe6NSM3zPwGs/sRYe
dWAqFx1gA7mTKdImYjX6RvCvw+c4Gbf71LkHpnnnIW+G2BR1tZuJAWoGwWxC
e73X9TceE/Bph98T4gC14lYTfRF0dpU6H81P89/mcJq+o/TfSo8faP4OjuBV
D2c+zubwIMLzL6IH7mlggNot9LhJzOR3FlgISPNgI/cX4HwWLjupU4enO4g1
9NkC9lHzGfWaiQfo3xJ0Xpvn/ogUzpTyI+7c3vtypBPovoPuwXz3Po/3XpAD
6vE1Bm4nZm87UIPOahBP8HwFv1gF/mTDp8J5ax4PR13tkajLt3s3bM/wtJ94
i7pDoJOav21eeU6jafWCOFwmIm4PbR+PkXsUzJBfDJd28l+gvZfnl8TP7M8X
v/PQvKzFg0d4ESMG2O1v6Wgvdztiu2Kzsxku4jmMjpXoGWQOcTBOnW44jbOb
GaCE53TiZnKrc91e2n4+TexDEt73cN4NRsnrIn+s0Okznb1wXQfP0pDz1fyt
T3gWz3fftX3f88yjgHorqPuA+xeo89DvOBk3m7HN+ic6WvlW58qdZtP+h/xs
9PaTd6mMfPReLHOcjJv9T9j/xRRcGuASCzktpsnL3TC9cgrdvtneNeLbBPX2
FLjv4d938d9HalxjRn3gFLMpYqYniX8BlxK0Lw==
         "]]}]}, 
     {RGBColor[0.9016294968419317, 0.5396970418461109, 0.20833269791250647`], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1mHeUlNUZxj9FtgG77M7s7GyfYXa2gygI0YAiBlQUURBDBMEjIt1yREpI
[encoded data, 4620 characters]
Ro8xDk/7jXpVlXXdH+orPCRctIPx/lrn4AOM/wMqw5hP
         "]], PolygonBox[CompressedData["
1:eJwtmHeU1NUVx59sYdmF7ezMbHOG2WF3liIIQlRAxIAtNhS76BGRbjlRigV7
[encoded data, 4260 characters]
pi2P7vAzgPNS7m3abwX8fz4oME4=
         "]], PolygonBox[CompressedData["
1:eJwtkD0vg2EUhi/EZzAIqvpq+7ZDGxabUfyANtH+A8GIkUEHnyuDb/4Awaad
SPgBBhM7I8Fgdb15O1y5z3Py5D73OeHccmWpFRiUdkkX4asXsuqPzV+pWa/L
ZcJ+H2xY36RhvxOu1XoSGjKdhXIXzKjvAXzIYg4WZF722qBq7yEF9/I0Drf9
8KiO6fnp3LQzSv4ty9QIHOt3p99rBt6aRHUtD0GPudRD3wdyJCWX+EvGs6MM
3/o8d8PLAEwMwUoH5PULJSdrIazKqUz670RFn7q7tWTinFHeYBRSsmXO0Bts
FuOdo93PCt7D7BdqYziuzwuxb+RfNcOu3jtmmDVTJYj3i/bMJOJ7Z/Tbbnpf
JeJ7R3f/B7jwP9g=
         "]]}]}, 
     {RGBColor[0.9025672204070356, 0.4739890842352232, 0.19582563776847756`], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwtWXd41UUWHZCEkE7ee3klyUvyehVYV0GlKUtRASmi7FoAgUhHd7GAVLHs
[encoded data, 5220 characters]
43HZjXmYtvs/QPER6g==
         "]], PolygonBox[CompressedData["
1:eJwtmHl0lNUZxi9IQgRCIDPZGLJNkslkGYFaBasILiitIJsg1iIigiwBtMUi
[encoded data, 4380 characters]
noT5KYcmQf8PhV9Bnw==
         "]], 
        PolygonBox[{{4764, 4763, 9084, 2587, 4912}, {6413, 2297, 8518, 6587, 
         6588}, {6588, 6587, 8610, 2357, 8609}, {9761, 2984, 9763, 4763, 
         4764}, {4737, 4736, 9046, 2566, 4894}, {7759, 1872, 7760, 4736, 
         4737}}]}]}, 
     {RGBColor[0.8940802944347116, 0.396974383259779, 0.1808352347615679], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1mXuUVNWVxi8gItVNa3d1NVVNP+ju6qLrBWgI6KyJyVKJrvHRgoqaCAIm
[encoded data, 5220 characters]
6cfizom+10YOp0aNifqBLvZHrUyFzYlnMDV2Jw47Kj47Pbb/BwysLyg=
         "]], PolygonBox[CompressedData["
1:eJwtmHd01tUZxy8jjCRESPJmERJC3gTevAkgKsNTwYIIimxKaWW3IutAj9qe
VrC11VItyD6nrWVFBGrZyNAWJSBbAhxGEVpm2VOGFpCOz7ff/PE773PvffZ9
1n0Lho/vM656CCFaLYSa/PbODqF2QgjLk0IoKea3LITBDUL4vG4I2SUhtGga
wrDkEE5D1CsnhCJwloDbD/oocDw3hPow2lQvhAmxEJY2CaEd50WJIUwvDGFl
agiTH0IOX/u0EN5rFkI5cgP7Sc1DaID8FSkhbK0VwqBGIczJD+HftUOohrza
EfSBJh1Z/cDpiz7rGsO7jvfWAldm+Ww28npHQ/gF/PPRZTz8SqC/Cc5G8F9A
5BR455WGcBZ932cvH3ge9q3EvlV884EXFoTwO+RXgFMOXK8ohLrYk8iXAnwc
H7wBr2rg7EbfCfD4Ff7rjr6/Rt4gdGyEboPRaTDw8yWGc/Dpy/i2Njx31rEN
r2WGcD4ewhn4tcE/F4AHNrIv1sPvILZvwb4J6LILm0ZB/wB+x+HXEX4t8F0E
ey+h+/AaIWTi+6voOAVds6GfhT/mc/4B8GPQLwB+Bh6364dwh28IvC+hf3/k
t0b+ZeBN6PQhZ/fhsYD7vQS/yUmOgeb4Zw57XyfZB/LFcXjMRr/P8P8YdPug
iX2/DH2WAG8Cv0GydfgE+GoGcQH/qXwnkPcVPvtXkmOqMecFxeatdRPg1XnY
ga87Y3Mn+Bdj8zbkrcL+s9jShnWdusZZk+cYU6wtxd4hMftAvpANl7ElXuxY
783ebuKzMTq8Cr/Z0BcAb2WvJ2fLwImB26zYsHJEuXINHu+wHo5NLfHHfPjn
VPfedc6+4ZsN3BJ/lMPrL9DXA7cF6/XgTok7N5QTu4FPgz8J/EL2poB/g702
6LOU+PgSuJL4fRPZ04mpPcDb4PEzzodBswjao+AUKlbwx0380Yp87IT/H2DP
u8T7zsamfQMeu4Cz8H9ysnX6GN2uQ3MOf2+F/gbwCvbmsq7B+UrgjIYh7IV2
CTKyoW1E/G6E3zH28oDLGho+jP778H03fN6T+3iU+39GMDEwEbgD9o5H17sR
x9Yi8EdhSyY8E5F1Cv79gNOI0VHQ92CdClzEnT6CLRdZ34b/5LjvVz6chr8m
grO8vnP+deCB6dZXOXAF/0ShbwX9eehvQt8BnP8mWyfpdgSbC8FfzXkh8oeV
2reHsfEP8NqGz44m2OatwCnw6IJ/kqhfKdSvzeB/N9k+qwD+GvvuQn+Pbz7+
W0B+LEXWYvx7Alk/wV/fwO8p5TDxfCfd9yWd2qNbBH2b1na9vYqsd/Fh3QTH
xGB4bYBny2q+n4+Ad8NjLbw2QnMD/SvxyXP4pg/0nxe6xqrWtsE/C+GfmG9c
0WQQz9Ph3wfdevMtQb9Tpc5N2XgSeDH6PgrcEfwOyHqYvasPOWfnIn8fvOcH
9wz1jhe5038iexrfiKhrjGpNK85/y/lQ1l/Vdw1SLVpcZtkt4dmHu01Dp63Y
moZPuhBfkyKurcrRpsibXGZe21UT0WcG68caOAemA3+/yP0nCf698G3HTN+1
fDwd27/E3mRsmcHeSO5/R9S9QDm1PeocVC5WgPN3+D/JF69p+78N3LXAslWD
0rNdM1U7r3Enf0v3nepun4LHOO6vbsS9TPL6k5un81371QNmZbmmqbY9Df54
8M+WuPfsYu8c8Gr4j8KWEfBfBdyMOx5d33srWf8HnFzwO+GDOWWuAaoFH4P/
guIXnOb1fSf9oW3N+hb6DuH8OvJasL7C+h7yb2F/ATbtSHHOFROL9+B/NMU9
s5Sz+8RDaS3XcNXytyOul+v4fg6vh7Oti3qmemdUPaWWe1gh8K5G7p2q8Qfp
H/m6b/h/Qs4f4j6iGc7FC3y30G8hOm1J9J1qtihv5lhux1fB3eZkuDad4bsG
fnfwZyT6jmfi30ONXUsVc4q9sdhzro571gnW29PcuyTjPWiPE8/L0G0V/Gai
29vEy856joG3gCdVrTuBkwztiqr5RDJ7Qj+R84p6nonKsnzHuuso38l8z0ia
ldRzS3JdM1U7x5LPj9NP9rI+mOiaE2/omUOzh3RuUeAcVCxKnyWcz0bHaIJj
QrExtdC1Uf5SLhSxt6a6a9zJVMeYYk09ZQD+n5Hq2Ugz0i181SXHtVf32RX4
exmuneoZ6h0DwO8Mfi/u6zD61KmKb81sc/Pdw9W7NSPciRhHuJrxNOstL3bt
Us1X7b/One6p65hT7DVEhwM1q2qmZpFczxPy30TW85p5ltGMolklkunZRzXt
ceQPIf4TG3jGHKx6E/e5YnZY3D1EvUQ+KUZ+r6hnR+WkclMxp9hTz1DvUA1W
LdYM0TriGFOs/RR+29HtSpp7l2q2andfZHSr4RmyH/CwmGcR9Sj1qi6Z7s2q
R49Avwp/JOCLL8jB3FL3CPUK9eT5xM7QKnr1PPW+2+h7P9E1+CC4B9J8V8qx
vuTWBnDK6/mO1sfdE+QbzYjpyP9HiWubfHwM+AtwVoO/AvwjwK9WxadiuJvm
w5hrl+L7csw9T71PNXo/9zU54llK89Hr6D8i5txUTXoyyzOvZt8D6HsoyzOT
ZqfN8NuG7p9GnWuj2WvLWWWa4TF87Zp6Jtdsrhnv+QLXYMV/KjxHwvtMkWtX
Gf59BfljY367xMjJ0dI97tqiHlWR6hxTrh2BZj+yelTVC+Ww3hoP4FfJugX8
fgy/7eRT10TXOM2GL5ZZtmriZuzpHDGuZj7NfkuJgZKa7pl/Bt5S6F6gvQrg
ZHx2l1hrB4/ZZbZRtirnlfu/j3t2VA2qTPXMqNlRPX9d1DbJNt3ZGODvwDMh
0TmcB/1I/PMndM2F/yvwj0XsG82YmjVHRz176Y2yAfzyqO9CNXRO1D1TvVMz
+6fE5kx4tNV7EHubZFfpzLqS9YUS9yj1KuHM4mxqmXuVevI04M+i9vWH8N8c
9Uyo2VAx+izwX5GRkuyZTbPbEOxvS6ycQodn8W//HM+umpk0O0lH6SqajdDm
4b/y6p7B8oGPZdl29Tj1un5V/vl/PSbfdkKTlewZ6eU0vwEUv5ns7eBsUaln
N+XY+6WugcqvDM63c/5SmnHFQ7xeK3XsKz7ewtfbio2rmPlRmnusem0yOg3F
Hy/xZTfwG+4gui7J9FtpGf4YHnOOKFeEI1y9cfTW0RuxCP/vxT/TOR/J3kdl
9pF8pZxV7j4Bzq0Uv2n1tn0uZtvlg+7Aq4jJozWNE4HXmizrppo5CH6luY4l
4ct3msk0m2mmnxZzjVKtUo6s5S5uEFP7EvwGaoP9J7M9C6nmngI+ke/arRq+
Bt5r456t9WZeF7cNsmUGPPfF/R+D6q3utCfwuLjfDprh2ue7B0Sr5ie9pZtm
OLbUA7cW+z8J/TehmaYlut6OeBaVjn/kbE9Tz5aq0Reh/QH6fyvJPh2gu8xx
vVNPSwB+Os21X/Gpt9DaPL8VlcPK5R257gWaYTTLyAbZopmrbcRvdL3V9SaY
h/xflvptr5ibwvk7Ec/qmvFLOR+R7tlNOTwC3S6WONc0o2tWfyLLsaKeoN6w
rKqfqodEsGdQ3P8lKId6IGtkqmcVvakGcna+xLmsGChEt/2prv3qwerFfbL8
X4NmnN/A/1qZ34by0Q/RZ2+2Zw+daxb6H84tqcQ=
         "]], PolygonBox[CompressedData["
1:eJwtjzsvRFEURj+TCCIZIq5X7jUXyRQYv2BmlFQkSqWCxtxLS6n2qmf8iaHk
B4hRkpBQejQKj47E2tmnWNknZ7/WntrI17KCpGHohta8tD4oNYntCekcjsrS
IZyF3EskpdNSow+GpGpJqgXsfcDf4oCUzUl1BtfgmP6PfumUuD8mXfVK3yk1
41IOT8x8IN8gvzkjbcFr5D0nYb953ONzB7eJVOiR3iN3NNftss/IiAl+MZSC
5ySxidsvPUuj0kosrca+2xw+cbnEaQ+3N2Z2UXed+C7baT7mtcvsR3Y8U7MT
3jmxwo0L0AleN4nfXQ//lv9K/e6f1HebwzIuf9S3cBvB46JI76y72w3/TYk/
lw==
         "]]}]}, 
     {RGBColor[
      0.8814620740203223, 0.31500337214947605`, 0.16475625859059337`], 
      EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJw1mHuM1FcVxy/LUl7rzswOM+wsuzuwu0zZmd9AamJVWEhrjYm1KRSQhRba
WlTsQ6j6DwFrtCmP0spjt0KpPLZGQKgkprZgpYo2EWK1ZS1ISyuv0Ai00gR5
tKY1+v3ke/ljc+6ce+6555x7zvec3465b9H0hTUhhEcHhDBQdNCYEA4OCeE6
0T3ZEJrEP9EUwviUNoeF8BmRt4d5PUl753MhrJCCo5JZ2RnCq58K4XHRUWmd
TVv2nWGmyD+gvecl85Do7PoQOsSfJf6B5hDmiV7QnR/WhnAsyr9d7/Vi8fZl
Qpif8Zkv6/zPpOcrojPKIfSItztru7D1quR3DQ9hQso2H9K5d8R7X+uzkt+v
9VPVEE7LxlvqvfdYQwgLtP+6dB7W3jqdudQRwuckc0EyX9TejJYQJsuuN3TX
3xWjV3Ruts6dKkjPoBBOik7R/geSvyD5VK1l4J3S2brBkhF9aZDXaxW7ltEh
dCnmzaLPKw7LdO5EMYTfl0L4lc5NGxHCXsn/OeVY1xVs/wutskM6PtHZg/rd
2xjCHNHTOpuqCyGtv17pmjxOMZWei9JzueA1vDvrLYdMMWvfiUGf9m5UbLeK
3hrjTLz/2Oh3WKDYzKh3nnAfMSbWtw/Vm+nuv8mmwsgQflz0XdyJffC7dccz
Rd/1afm6FhnxvyD5Dvnzdcn/W7bc1+mY7BD/gHx/RuuCdNzaZh2Pys6brwth
9RDf0drmO1pEl8jO27RepHtz0jlX++9L5/yBfiPOH5bMKsl8V74URY/q7xsD
HA/i0qs4Zwp+O955u/LqHvGf0O+i+EdEDzabXi/+g6I7pKtfsVrb6fdhPUH0
QIdr4KDo3WXrmVf23iHJ1Nc654hJr/yaXjF/e9V5TD1QC4vjmhyGXo1rcpcc
Zj+nnJ1e7xy6uWz+TaInpWuO1rPK3uf9eLsXZdPrsm1Ph+sLGfJhVSrGQet8
fL9hRdcYtXa75LdWXRfDZe+csrHiO+KNqDgXDituJ+XPbukYmw/hPfk4RPLn
RXdqPx/tJH6lGEMwADpOtFA2f7d0PlXj2IMV62XbhpTf7UTav1u1TgrGi//o
XE2iNxB/s+z9oM3v2y9bfjHI/EdqnCv4hX/EcHGM5xMV59q9srM7Zft45xfF
X6LfL4jeIf8fE+815dF/O+3Ls1pnhtjHbu3tzTpvHpDsjjb7vLPN/uEXNoNX
SyJG7VL8z0YfxxRsM7Yfl49LU86TLSXLTND+qarf6Y1G738/ZbzhDeHzdg9G
vAV3b8g63psbjA3U+MuqiXul/x799dT4/XhHsB/e3ZFf2+Dfb9b4LOfQf7/k
s7L7FdmwsGI8mqw8uSz+cvFfqxpnqQdwCywD0+4cqxzOuc4WVd0f6BfE43tV
1+ZdesczGfuWirUK/4juOll0/oJ5t7UZW8CePzT4zdZV7Df5QZxn6uz/tJ4h
mk58b0p0TadrjZqjd9EPyIXuevtOLOZL/1RhzTTVe1/Jvu8faSzpj5j2nnRt
kPx50W/K5gX62wKeZvy7JD0vp5x/YNNK8VZkjHf9GfenE9r/VtU1S+2ukG2J
ZKfjb8r79J5TKf9m3TXAOEKvAW8ORcxBJzKc5x7u2y6f/5U1HoKL1C46yfnl
0R7sBO/JOfLtOeH68ZTvwQ/84fybFdfdWxXjAbVAzhfl/z+oR9Exic+OTtzD
4YNjh7Puh3NbjD3HxN8t2zaXnF83JL5nWbzrdHzraaqjbTXew05ycmCD3+lI
xHNy5ya91dNp4z0xID+JA7wNkX855947uuTehZ/4mB/ld/tS1jYNr/Od5At9
iNz9Tcn8vaLXl3x2ufQNTdyjf6mzk3XPpLT93FpyDV3NmdeV9ixxImccWtAe
wg8T858Q78pg5yp5MjLv+3dLx2fTthWsmNnu/pc0uwfiM33w1ThbHNc89lLJ
b96Y9x/rOXlj867o72rJLBf/bM41iX+r220Tth0Xf13J88cU1e5CrXdq/Wvp
n6W779C9QyXz1bie2ezaYbabFeegSdHfpZ22syKZz6c9V8Gn31MHHXljGdj1
cdV9lJw+p1p4N+N8A/P7Mqb0iIvXzrbarrvS9oeZCEwA3y9l3dvHtrpuqd8t
44zv4PzkRufFxpgbzBpdcd74gd5loviP5zx3Mn/Si7YmvmuL6D9zvpNYgsHM
DODV1owptQleg9uflD3j0uea5G9XwX08qzpa0+476T/YyF1g7J6KMXBvxTVL
3Kh96MS4ph/SL4gLudYd40/vpNccUp1MLBqvcopBudlvwZt83OTcziQxb7Te
JF/u77CvH8m/wTlj4Kaia/nD2C/xEbwBK/gGYD49J9ltY43pf5KOqc0++9Oi
ewM9YnSb50dwg9r+tuzMS9dC0Wqzc5scr684PsTpL42ebx6qOq7UFrGdEnXS
f8AzYkRMyPOuKEPvYp4HX+oqzss+6Rk/wpj8cMnzCmcatD8+2rC6aIwZpb+a
Bs866E8x46Sdc9QJvWtJ/EbaE2eq35bifF3jupqbdmyJUW/GMmBMX+K9Z0Wf
LLr+L+pb4C3Z97Tkrohmos11sU/Ro8C0nyfu39sS1yT2bNK6Xbm1AX+rrlvq
968tjjG1SX5QR8wi9MfVjcbv41X3RWymP3eXPU8wP9KLee/6OGPsi99i2Lgx
4zlvU9Z9LiTO330xh7FlfZR5TjIHJDM4ce6gkzfqiT0InLoy2u/C+xCn3sj/
CfUXeys1cSbag+5jUX974h7ZkVgnZ4kzunti7wBLwJTWeP+ZWKv0IrAd+Y0j
/B37NelpijlA/mA78aTmC3nbQt/AX+qWmqHv9MeeTn8i3tTlw1XP1bPL7rnr
4wzAfeA8tjEzMuuihzd6N+IdfuM/2AGeEXcwcGbsEfQKZPuiX9jbFPP2XMbz
5ar4XURvWdro9++LergTGXADu5lJrn1fHIo9FNof1z0xrthcE++ipx6Lfi2P
eYGd2EtukWNrdO+ynPvZ0sR+4RM2cD92YOfREcZlZqt5LcZVvskGRp+YzRbE
+Yo5YV3imuxJLFMb3+tIm+f3a99t174zwHtmODCfe8/F+bvUaixlBgcXwWTq
txi/EbHzyZx7/I8S9zdqEzxiziWnwZ1S3vKX4v8lrsbvOGqGtyXO5MbA6Etv
zE/yfFScbbD/dxFH9ovemLOvzHErYozJH+YYYn8l57mJGYmcWJlzr31Edq4T
tnwkbOkp2s+eaAOYDj5PjT2BeDBLgJm1cb76P3MSkSY=
         "]], PolygonBox[CompressedData["
1:eJwtlmls1UUUxae10KLQvr7yuln6oDwetLxiNHFjC0RjFBApIKUCgriCCnw0
LG6RRdksIptQcAHEJVGkVAiKEqURAdkUikLhi4CICWERA4q/w+HD5H/nP3fu
3OXcM9Nh7MTBE9JDCI2MDMZtJSE8zffvzBDejIcwpiCE3KwQqlqGMIy1vYUh
DM8OIT83hOcr0WW8wMZ7+PcM8qiKEEYjr7kxhIa8EPqXhfD4DSFUY7Mfcm4q
hO0tQniLQyPIw9CvQT+B/tyOIUys9Noj/JuE/AtjEWctZnTMD2FDaQhbOa9n
WghfIH+fCOEwe39lbEfeiX9D2DuYUYXtSckQPuS8adg8GgthPTFlE89DxJPJ
fGS7EHpjaxs2RyHvZDSgPxP9U6wPr7Avb+SEcAxfdmH/NXQXcN4Q1gYzTzHP
w79xrO+J4jPzxeg/SPwLiHFgxOenIU9h3Mn8dvLxcDH2oz57Kvpt0B+BzTeY
z2aMRH4M/ZsjjnF1J+LvGsJkdIv5N4a1QcRck2GfqhK2KdvSqUf3EGMR8lH0
x5XzJf7pwfkZjP0G1qewfoT1+1mfhs27ke9FZzy+Hc+z7UZy1qKDc6q9MeL9
kdjL0G9WbhgdkUcWOL/Cy8Pg5R7ml8DSPkbvuGNSbMLIo8g/k7O3sVXHeUXU
dyfz6cxXk6+hzKdi866IfZpFPQ6wvpD1LtSsHvls+xAuYHsANifjTyn6v+FL
E/n6LuEaqBbKwUFi3cWeGexPsn8D8grWt+YYI5+Tu6743Aff5xFDN+wtBz+b
WHsTf85zfpL5Rze5htNjroFqoRotbQtWiKma2IqxX1NhjAqrRzijA7qb8XdZ
lnvgMuclUs5dL3SGtHNNlF/VtJl8XcTHplz7fB55UImxqxwr17v5N4u1J9h/
lljap3zWx/jYGV+zUsbyD/xrhfwANbyS5XoUs/+TPK8J8034cyRmrK5jPoH9
p9izmNiWME4jP1fp2gtDt7J3ecq6M9jzO3vr4+aLavyfR/76VJgbjrO/ivm7
wkjEPsm3HeSjR5prFtccm03Iu6lffcJn6mzVpILY/2S+NGKffiHfEyrNRcq5
cr+R+VPX8bQb/F7Cp4WctQUOWkU8ByvNJZ+y3sz6PDjnM84vwt/5yBdYX3J9
/RxygziO+Uh07sDWas4fw9kLsLkSe3lg6iJ7u+HzIOQm9Jei/yT6yXz3vPIp
jKWn3OPqdfXcRvSro+7XW5hXMX+XHOUTy7pWYBK+PEcOarE3mjPfF9awOSrN
PaPeUYyKVT2h3lANVcvtwgBn3cqeg+m2sZ/1+XFzuzg+znoN9takG0PC0sou
xNkGbm4Nplmr6+Lc6d8q5L4F7re+1KMb9Tid59yoZ9W7Vxgnc81h+wsdk2Ib
SDxtJbc1XsSJtfgW6UZMUfu4gnyuiBpbysG/8NF72ChA7gmm2oGVNdj/CV/2
MNYiv05NukfMEeKK5iLw1sIYEVbU0+rtLfiwHF+jXe3LGc6IIH+aNNfcRLxf
Js0J4gZhSFi6L8/5FQaEhbP4/3ea7zTdbf+AucPZvgO/xdc6zhwRcYyKdWDC
d4X6YQBySXvHIg4QF9xIPRozfD+2ihtDwpIwIWy0L3OvSqcUuVehsSobY8uN
CWFDmPwgZc4T98mnFLlYhc9/ZZvP61T/QvsiThe3P4eN9eSylPkZ7Odw/hn0
T6PfBnldmbGomqyn3msLfLZq8h97W1O/9Kj5sbnYnCnuFD4q0W+ZMjcoJyuR
GxO+q9Xz6v2GpHOvnlfvC3PCXg7jK9Y2J80Fwugm5BMx2xPGa5P2oeB6v6zF
1ymFvgtU8wvYH5/wW0QcMA65EZ8OZLiHtiOfjJmLxPE74N9mRutMz/u29R2j
u0accAj5APyZnWEMzi93zVS7PezpHnfPyhf5JOzqTaO3jd5MejttK/RbQXem
7s4i8rk305wsbm7ZwXet3jB6y6gGqoU4Jhu5U6m5RW+MZKnvbN3d7+FPP+RX
o/ZHNgfgyxXweSLDPanevFzpt4zeXNWsxQrsu3rmGHh5HRs72vhNMxP5alfn
8ypnDGXvkErL1zig4PqbImIMPYs8I+a7R3ek7spXiLFXxG+s/dT3YszcKZ/q
kr6DhG+9EWrJ38kK97beeCeQa8WROa7ZgTLfIbpL5OMsznsJ+z0iPmNOzJwt
7tadqbtzNv96Rqwj3U75XhdHi6vFAeIC9Ugu8oWYsSxOEjcJ05oLE8fARv9y
51oYEBb25fnuFge9mHKPq7+ysPcHuqfKLetO1Ft6a9LY1p3zddJvLPWmfHyZ
/UNL/HaSvu7Sn1hPsr+z3hQV7lH1qv4VVfif1pSjb9B9J+73gfh9GXKqxL2o
es1hHlLmwms1Jd7MlO8K9ZR6NZHvt4Te3Hp7qwfUC7qzV6XMIfJXHLES+Wix
3zriAHHBvLjPE0fORW4Vczx6r+jt/VbUvsnHx4nlf0TS11o=
         "]], 
        PolygonBox[{{6646, 6645, 5954, 2039, 8079}, {8082, 2040, 5955, 6645, 
         6646}}]}]}, 
     {RGBColor[0.857359, 0.131106, 0.132128], EdgeForm[None], 
      GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFlc1vlFUUxs/QD1oKtDPTZIZmmqF1ZZkX45/AQhMtJlNtxa+NGFwpuNFF
jZuiERbQFLfy1ZpQ1I2JdFEDK6RglUriAjeCC3CpRMEF8eP58Zymi5tz3/ue
e+45z/Oce0f2H3r+4KaIWNLo0FjeGdEoacjeGtJ3V8TW3RHXyhFXNS73R1zU
uKSxRX4DuyL+2B5RkT2v7xWtfxi2VzUqWvuiavuz4u2rRNyTf1v+N/T/x36f
R2zivqu92/Tvd/n0yz5X8jpnfV1EHJDfD7LtknPBf15rPRXP72jeq4KqJef8
rXzmNf9cY3+nz7qQcX6SnRiLOKz17+v2vZw5L47a/6zWe1qu5azsnGJ/p71T
Jeewkv6sUz+1d7cca7PsAvlUNnJkTm4PNkeMC9v3BfrTZWNyX+dN7PIcnP7e
FjHbKwy0vlr2uWuKuyh7TuNIp3PoyZj4gCe5bU8MwZL6wGRC659WjeVX4qLW
5RrBppoYPeJOcb7pd27l5Bee4QE+wJkz2zkHg3bu7SvZ503NJwvH+U97P+hw
HfwHm2upJQbcE2euZa6eGFTdzYi9yu/BjohjTeN1vGndgE9VdrLLNVAbuJA/
/PK9XtPtYWsYLcMxWHSPOC7xTzTtj27AB356kq+XpY1XddYrY/4m9/fCtfRl
jZeyH8j7dPLenXoBFzSBBoj/iHdhclPzPwufS/7k+s/jnp/U2Wda3rdn0NiA
FfHJ5a7mH6uGG3XbY48ZYzhblv0o9UKOBzpsyRNdrKZ+8EFb+D0rnc/oe3zU
/9AYPF5MXtZ7Zy37Gi45L1rWIPkc7bSe0NXJqnX979aI6cRptsO4zdetN3qL
fF4fsFbxv1K23qiBOTlj+cf8ZvYsvQuHk8k7Piu5F92Q7ynldrzuMy80ne9y
3iFokzkx/0ou4IQ851OH1EM/TyV3rBPrt7J7j76ryZ7P+fWKc1sqHL8v+4IY
aA8uxxPne4O+d/C/nvfBQmpjoOU7sSz7xqh7/5P8/1nqE83CH7zulc9hzWfk
U2pZiyda9l3InO/knL3DO40/PNwunP9LY653YYvzJf66dvbUjOsLhTG+khob
qvn/MyPeR43s7RrxOb9KA6vZa9yv3PvckV9qfXfDMYk9nefAxVzTc2KjQeKh
t97sJe7gh0Pub96o12rWVbvh94kcftH/qYbX+U//gP2tYesAPCYb7md66aDq
OqXxlM47k29KNe+xwbxnuI/R4HTmuZTc8RbBJ/jzDz2v5Vv2TmF9HCrcBzPp
83ax0bvNqrHmnts3Zm09LNyT8E4N4LCab83dvPPZT+717Lsnq+6Ft9b3Zs/B
DXjuqPmuQef3ZU9nvdSNds9l/E2pH3REX9bKG/8X81x4hd/Zus+H+6Ppg53K
Nxkc4Zu7iX0vjjnmkfThXeLN472jLuph/3K+L/Tp/6BUN2s=
         "]], PolygonBox[CompressedData["
1:eJwtkjtMVFEYhEcEyeK6y72L2YUs4VHpeq+JiZ1aaqEWPvAVKzF0CtpYaAca
bYSArQiohURrC0noTEyMxkdjo9BZKgloQTR+47/FSf7XmTP/zBkYHjs12iJp
P6eVcyWXhtqkCZK3NWmF/Fkifeeca0ibecT36H+i/458hPwLZ514tiJ1bJGW
y1JLJm0bCKyT1NqIH6TSVEH6vUN6v1s6USffGrXLg9ICmMPMV+Hwh/6hXdLf
onSMfL077vjuHeZvgzXZJ/1ql26BsResUThcLEl3wbhKXN4j/SDfIN9OnHJ+
NvPP8NnIg/v/HYhfwv9Jh1Qjv57Hm37bb9znrYPkR5LALIE1Q+04/RHenyYW
Oy+VQ4OHYE3VYven3PlqbeF4Q7HzGeKZLLR6zMw0ccL5SF4n3+xh153SpU7p
A7Uyvdk0tLFH+8B/lMXd1/TniFd6pUXyV/RXiStwXCsFZ3M3hrH8RmcWHtrL
Rfqr8GvPAisF4zn4Zxuhpf+A/8JalzReCE/sjT2wF9agj/kDaHCT3SZcw8/T
eXhjTYaIv/UEN2tsreepHU7CjyJc6/2xu/9Ab3945p5n5ph9UQlub8ArwHWM
WjUJjaxVsTlvjxPi8TS4mPPRwabnraFJF/3uanhnzua+kAW2NZzP4g/4L/hP
XWiEh/bSHk6i3flGaGcO1+j9A+ZpgGw=
         "]]}]}}, {{}, 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwlkTsvw2EUh59KFInEPbRp81cW14pZDB1dBpe6xoSRVr+CWFspq/skYTEw
+ApEwmag9REkwtAIjxiePD3v+zvnbU8Tq9mZTAhYl0IAyRik2mF2ENLy0+/F
ABy0wFUUDnWVdUj2pChDrXCkjyUsNXJh7tn8pa6zrpVTOZGU+VIcylIyU5+E
V31jNuebS32wLBk/b8pjB+S7Yd6zkvWCrugnz8t60XpLZ+WrDRp8o1GapOLc
206ISVzO7Dnv8rvo715/TzMM++6GvXeeTTvrXocTUC1v3u1av3hf0NfuKO2O
5mTFPU3pNeftO+fBeTs6+Osx9xlxR7ooUbNjzovoEetJe7bNjusJeXcnoz3w
YU8++P8vfgGVGD9l
         "]], 
        LineBox[{11023, 11019, 11679, 11678, 11680, 11020, 11025, 11024, 
         11026, 8659, 11028, 11089, 4695, 11088, 11027, 6460, 11022, 11021, 
         11023}], 
        LineBox[{11725, 11700, 11702, 4814, 11732, 11701, 11736, 11765, 11763,
          11766, 11764, 11725}]},
       "0.36400000000000005`"],
      Annotation[#, 0.36400000000000005`, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwlkM0uQ1EURpc5A1RSEnWvVgXXO+hMNR2oNOmABBM/A30A9dMB2pDUwMQD
qAdQNSaliSH6DLyCWZcYrKzz7bPPPfuecLtcOBgA8jKbhvMxSOszfRhBcQIe
F6Alm+bbGGzpuxl4TcGbdOU9gCnrCemYo3H4nYfnOOwswq5kzEuyaq02B3W5
kIJ5z/0XPe35pKRkbRI+RuHYdd15Krqmj/T+CJzqS/OJvtJV/Wn/uuc2ZNgZ
eiGU7B2y3vYfnmTZO1ckKzn5sqfxN4d7Tee4l2vzj7N+y4150G+1EvAgofcE
0f979QFgzjFT
         "]], LineBox[CompressedData["
1:eJwlkjssg1EUx/8mqUlC61k+9Qh9CaOkHViFKjF4pekiDK3UpqOReMRGtRJE
DJYaTNiFqdKtLQtaFqFiEPH7Yvjld8/9zjn33JuvLRwNRiokrYKtQapqlSww
ANY66YG9Ary5pWytVMJFeAVnsxTvkVzYWy958ES75Mbr1L8b0gr7UerjuEzs
pcdSl5S3SvPk5nCE+LxRStDziXiD+BlvYz/5t3bOJM6S84JviHNmPt8/iQ1c
xtVeaZ91H30yHumjQzpkfQTHkOLbF3lJ3MtMP04gL8NsMXyPl/E0+zMwB7Nw
USMt0msBvqk/oP6at0l2s4YUNNmkS3MfriDA3FOd3IU7bsKaSwrxVj7OCOMT
6n9NO6RTSPNmed4syHkFvEPeIw5w5hjcEY/z7YxZRoiHoUR9EUL0mqTewmxp
aipxAo+yt4d3oZ/1Fh4kt8zdh7CfOMJcPmwwQwvYHf//wR/ZwFnM
         "]], 
        LineBox[{5101, 5658, 11733, 5657, 6934, 4934, 11703, 5430, 5100, 7701,
          5099, 11724, 5716, 5655, 9901, 9912, 9911, 5066, 9397, 9398, 9914, 
         9913, 5656, 5721, 11726, 5105, 7716, 5106, 5668, 11734, 5667, 11735, 
         4831, 5669, 11737, 5670, 5107, 7717, 7718, 6433, 8942, 4816, 4941, 
         11223, 11224, 10601, 10603, 10602, 10604, 8941, 10777, 11693, 4815, 
         10778, 4800, 11153, 8916, 6431, 7367, 7366, 5101}]},
       "0.338`"],
      Annotation[#, 0.338, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwl1WtM11Ucx/FvDxptpQ+Af1pyCbwhd9eW1RJb5aRSsUzUJYhahFOgi/Wg
2aq12Vaaiq21vBC42ZZNEK3ccg0LSEHQZq1FSNbMylRMedJlrtd/PXj7Oed7
vrfz/Z0/5qxsfLThuojY4J85ORFpt0ScxNhipEVcy4r4ZELEj4URZzCMCzdH
/M32F1YURNRgXG5EIi8iHSPOe/Mj+pDBno361Ih7siNeo438K9hm8S3DaHrE
7Rnqj4uYT8vpTr43JCIO0OtvjUhBnZjL0yKaxkfMmyQH9ulxiM/B2yI+xhnr
l8SnuMt6ekC+fHleVucVrMcKOTqKIpbTMvFteurV00ZsmRixV53dcreix/ka
9zit5mo6TNfSH2iJGmMnR4zBdDPbIec1Z+/Ica/zWvk79dCi5m7caKatdFhP
X6tZnewBVejgX0MvqXeHGQ/ar7Ovk69W/lozWsr+JP2T/Xu9Dib7td6KTdiM
t5Ctr1F52vnvRxvyfJO39bgNXVMiptofcb8vcZLv3VMjTtAi37QYWXJkYo16
XebajUL2Agzwu4t/P82U+07rz+XJlbNJ/tPuluvd9NN39dhqHi34xz1m+xbP
i/nX+qCYDOt2/STEfkTbsA+Hxc6Wv9P5EWSqkY0spPItk7/Cm1iAErZi/C7n
eWyT9wL9A8v0/1kyH3awt6Bb3lL+F51fQjPbDH2NWFfx3873qv1K9lo8hUVq
ThdTSbuTd3Z+wt0OmfcAXcxWLXYJXSXPE7jobCT5TVGvZrNvOmz9Pt3jXUww
0wzzGvSNh5JvChvN6Sex0+RfJ9fP1lfUL7EuxSS9TUY2cpGTvJdZlcp/yiyO
ZUZ8S/tpH2bqaTOfLdiEnXJsRweftfb1qFXzGdqIIv5X9TWKBr1doVvlrzDv
V2mWOov4L8Q873suitxnPX2YvkgfosvNpBrz1aqiv+IcVoufLO9Zc5hC01Hu
nSXoMfd/k/2N5O9CjgdpDf1GD6dwWfwIhtSuZn9PrUpxhcm7mVcfez+eU+Mo
27P0PP+vrHvZC2g+HhGTR6ehi70HT/Pttu9BudnMwSrze13eVL/ZNCT8XVgm
X505pFtX0pvEbdDHgJwL9PSB38cs99hDH3Ce4vxDs9ubfK/OO9X6Ag3s9/F7
gV+lWouT384dj2KuXMdpP5ayL0Ej//v575enAzP4PG5uzd7kLsy0T+it3dl4
OtH+HP9c2mSO2/CL/VmMYTuMFvG78amYx8QsxHf2v3njx+U8lP7//wn/AThh
+bM=
         "]]},
       "0.31200000000000006`"],
      Annotation[#, 0.31200000000000006`, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwl1W1M1mUUx/HTSqSkxERQARUozaeJa8vVJEuT7EWmYA9ra20aKiRaWwtv
DZaC1ZZWmuKUcGVZYGZDczwlFtrCh3Tgw8psc7XMVrOVL1qurM+9Xnz9/a9z
fte5zv/8rxvz5i8rWXpNRKzzz7ahEYPyItJx04SIG7H4loi3xK+MjagbElGS
G7FrYsSO/IiXhkX8IfYUTxn2DY64fkzEJzTN3lTPC8S3jo7YgjX8GeMihmCb
+Ns4xDt8VMQw/qFoFPvYeek8dfzN9qVnRmwQ34hNuDw8otu+9Z7nyqWPiEi5
NaI/MjxfR6/FIjXmyBeJjbKn8baIrqyIAXL7aYvamfKbkz3ioJoHxf6Sv4IG
sav0H/TYexgFauXZM8W7dci3oVz+cb1XZMBzOb3D2VOwX/4APsMS71mJ+71f
v4KIJjRjXHbEQjPtFL/Lnk/pVPq7Hp/hn2Xdbf8DtMp3WKJ+nm+Uj8n2FqJX
71VqLEeVvQksR5c9PyT7oEX0/M3mlxNxxLscRZl+TzvnmOd7eSrVX4alOCn+
Pe8pWqqPYt+6iN6N8+Kb9d7pvF/RgZNqXxCfJt9ufQ89p+YMWuHs6XSRuovx
vvPSeLrV3ukuncYZ9Ni/Sm6v3GpagzWoRY5vmK/GeH208lXz16BaH2dHmrez
WuUTav7mjPXWv9A36CW6UX9jzClFnSeS76TGQvtLaGlSccWd+xP16l025xHO
HYnZcrnJHnDVvDNpphrZ4lk0y/qSe/Gl9+xBpvgh2o0D/KHeQGf3qZ3iuR86
1P/XffrZvj08X/ueu2mr+A73q0v8jNh7nt/FSrl9/KnqbBfvVKuYzkSDPe8k
Zy6WNd63pDk0F9mYbr1dfj7vAhw3p9fM5GGz6S9/0AxXqT2NZ6tz18nNk3uV
ltK1dKb51dEHravVmE1X2JNIvoMaF/G5OrU8q7GFJ4E29Rr136aH3bzttEG8
Kfk++j6ql6/ETqBX/AhvX/LvkJn+6Hc1kF6gP+EiBllnmPmdZjjP36OzzvwG
j3p+093o8fysGS3wnZvc715nfCHWR5utU+lEv/PXeQ+LH8cJVPLvlP8Qx6w/
oruQxj+JvxDfin+H59V/jn+P/F60JH9HfLfzbFZ3Mq2ns/RUQ5fzPqT3wTwv
6/sVrBBrN6cErVDvA3NowiRzrRcrpE+aySPOe9Hs55hduVlWilXQudYT1Otx
9mGU8S3GaLU28M8wx/uwVi/FdCam8j/tvmfo6ZQzVvK/gAb+Ar6E2rVy5+S6
xA9ggH03oMW+x9yPRn39Pfb//y/+A31A+X4=
         "]]},
       "0.28600000000000003`"],
      Annotation[#, 0.28600000000000003`, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwl1X1o11UUBvBjpNnKZJt703K/qeV0tcKWZeYyQonalC3E1WqJuV7cMiRd
A20alNCiCEqduoTABJfzBWS2yXRmaGJgapTDrKQ3NjFnmSkR9vnSH8+e773P
Oc8599y7rWD+y5WLBkXEaj/WZUdUjIponhAxGzeMjriaEbG8IGIZvGl/jZiV
+HVogrLciBX4YXHrxTRC6/iIDbA7L6Kdx3ZYyq9T7ia8a0TE7/Y68FbrX+0f
TUX8hk/fHnFE7tqkFvRNjDhGm3lHxHH8tHr99sbx/nZsxLkiXnDS99LMiPTi
iGzIgqpbIkbgDMiE4tsiDolbMDKimpam/iX1T+DH+T1Kewxq6DX0d7MiFvp+
D8+zHi5u+60RX+NycZ+q2wkviqmlfyBuse/V+DnrdHF/878Mc/lPUr/OnJpp
K/BLcmeMifjKeY7CtJyIbmfeC11Q76zlzl3nXHvUa+FdJjfFd4tZ1PCsNMc6
c2ulTdbbvbDD90E8WB9T8BD8Ja7mP138PPHvqFdobwKcFL/wZjMSV+v+snC9
dSP/CvWmqzcbnxLXrY96/Vz2/Y8er+ANyZ3o8ywcdKYv4BBME3cYvy2nGTY7
68d6+J7XabgwLmIAvku+1SxSewCfst5nPtX8dvDO1OtOnIs3yR8pbpt1jhm0
J/vW3eLTnW148j71nY4zrcv0PgxfTO5RrZS3dRNtuL0H5E+FYvkl3t3dMNg8
7pL/r1q9SQ1aNtyjr4lyiyBNzI3Q73xD+fQlbH09rFGjzT234HUwxt3n8M2G
rbAN2qFDTLb4HMiFfD4pqNJbiRpz8WR8hPduPp0QZviC2Oeh1my69Feizylw
H5w3mwZ3cq24IZBhjn3mMgJPpWfhP5P54evoQ6EN5qhxpz5TzrmP5xIz6cGv
4gY4CIfgFRit7l88Svmlyb3onVwqjJhlPnPo39Au2Tvvro+rPYt3pf0z9qrx
z7gm+T2GQndShU/K+cH+gJwL8Ivvh5K/B/hzWq+9FrXWwQnv6RjcoI/9tGH4
AN6ih/v1MF7eYXlt9l6z9wl+A49Sq4A2Fjro7Tx34Y16nKTHJt69+TR6o5wl
tGV4MT5npotwB/2ppH94hvYkXsCnFip8r+KV4vW+uCve0Fq8Gv7wBlN6yJdT
LnY0vmreM2i9tDxabnIvtPnO9iwMpf3kPs7Aj5DBr0fOAXPfiwfR+72RY/bP
4musO3nt94Y+g51iepK/vfgJfbXjR/Dm5I7ldMvppm+U85F3tpzeZa+Ltgd3
0NbT3sLZ+mnGD9JW4VJcw2cjzOTZij+ElVDqPppwW97//0/+A12Y+r8=
         "]]},
       "0.26`"],
      Annotation[#, 0.26, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwl1Xto1lUcx/Hvuk93Y1en7aa2nllGFwdJf6g5W+DMtS5rc2kN6QKWMrOm
phMjaQWJ2sVpMmtacxM3ypGXZWhZUCqSf6jLCpWgUjBEUyKi10N/fHyf872f
8zvPLGueX/diSkRs8M+7+REPjYpYVhFRgwuLI/7NjphAlbdFLCmLWHxrRCut
z43o5t9GL4ndii24HbuSezqtXi+eY+vBf/BXtqOlEfUj9NNnFt4/PmIaVdFU
OjYm4rx+52iyfYOYKdiID+I6ec23U1FEtf3avIhThRFr8HG2zDsi3rR+aqQc
+wZKNe9lM9SJe9n+MVyEC2m587XhCpon5zVMFz8HM3DHLRH9VGOuPWbKy4l4
Ttxc/gW4KlkH2/ENypbzFvaZ4Ql9duDhcRFHKH1sxAi2Q9btJXLVymIbRoPO
tZf26PO+eivkTVenRL3p7q6GNrJPMEsHprD34UH7b+le+p6+S86aiJgkfrs+
U/Ciu5vszsbxrWa7qu9xuc/f7By+6zQzPYMPYJkzjqZSqrbvcseT9HpYbq15
VpprSO6gOf/G68XN5M+UPwNvcP+pdBNtGR2x1CwJOf16XXDOs3qni82gI+ZK
wwpK0JD6+3yPRj2bKNusBZRPXQURhWI+xHxvqEe9LLxPvXaztJl1t/0yzHbm
6WZJwwy6YM50b2+49TEzbTTToDrD9PjA+j3qoDz1e81Uhz2Yiwf1qfDm6+Sv
Nv8jON4+DcsxVc1Kd3uAvqavKMHeWx6RI+Zt8+Riobi5ZtrJPkCdZv4MP6W7
xd9DxWJKxK6RU4oV3mwlewIPOefe5DuhFLnX0M/uarg7+w0zsdI9ZeGfzjbf
Xcx270XeVA5bufh8LLN/mr2F/2LyTpO/D74C/EOdUbiI7y++Mc5/BVvlLKZe
cT/53qeoyN1d4ivBi+7uMl2iGWo/Kn8mXnZ3w+WcVveKdRP7STlnrYewwnfp
UKvW2er5jrP9ztdo3UDVavSo2UsnfLcNaq0Tv1+9ajlHrX+gLfzd9AlNlFMu
N0GH1eqT10+TxZewFenZrc8A33b2HbTL+ozfYwv+iAtxiZgFeN65X8Bd7M1s
n+Ms+ydptn0DPqtGPXbyTcR3sIrvqu84De9iqxVzJ47FMXSWr0rcVDrhXYww
+0gq5JvrTPOc8Ua+JjzjO/xC3/i+B2lQ/LV819Eeb+Nk8rdDO617cQAPeD/9
uB+/9K5WWu/C3bRP7y9o0HqTWpu9sY9oc/JvQPJ3T6+Ib6VO+XPYN+Hr4uvZ
lmK4zzb2beqs51vBtkqt5erUilnL9jHfq/ZbsbX4//9j/gNzd/Nl
         "]]},
       "0.234`"],
      Annotation[#, 0.234, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwl1XtM11UYx/EHNSqhFC8I+kO5Rpl0WdpFbU6mTaGwWjpnGUFrtUzR0lg1
JWlOu6hEKEilDXCGSFo6i6g/2qo154VZjbbStVZby0truom4tl6/9ceH9zmf
53nOec73HCCvuubhFSkR0eTH25kRy4sjGnANrpwQsT0vYhUe5r2Ah7BjYkTq
6IjSURGtvHfpV/6R7IjT+Jd4J+8K/kuLsqx/U0RfQcRJKpkUsVr9kvERjfxH
sW9MxIJkPY0Rq8qJWEiVYsuxGldiDaXJrcVdYyMekf8+rjZfq5/12Ga+TH47
1puPlD/jhog95hX2343TzZ+7OWKjeJf58/L3YS0O8F/E1MKIq+iwHpc5Q7rx
9TSC3nCGK/IGKc38WfGD8uqsUWbNJvXznX0bPu2btOIdRRHTqNt4iJ7Kp+jD
/F6aQUN53ZPRmbpwGH6E/1i7AS/gFpytrpTmWH8ulcmb577mY4F+yrEQq+xb
Kj7P/Brza+ke46Xu9G6s0Od6/abyp5kPw6nJ71kS0e98Ffq5+paIS/otlrc/
EXFCD1XO24cL9dKKk63XgmmYkRsx0/1liI1X1zbOmdSN5XfiCNzkDjbSOnvN
VPcZr8xeQ9UPo/PqAs/icP33ute+fG+HWm50Dv01Y6+1Q38ptJ03BFv5fxjv
oFZqoXS9NGMafqW30d7mFmd4i6b4bmm+UxEWUz4VUgFl2nscbdZnFr6JKfik
Xi+4r4u00zk+oPute1SfCfEcapC7lfKMn5E/wXkSVGTvHmc+p8+/6ZwzJNSf
x3T3MdR4OOZjHmUYP+bbr/CNlmLCG8tQn40j8TrveBTmmj8hvkpeNWapK1af
wG28p3gv4YB9JvH2ieXgGT0X4iW9DNAFuiJnEG/z/W+ny+aX3d0grrXGg9Y6
Jn48me9OWr2bH6yzwDdYJP6n3Eo8g9VYRZOtc1L+99Sv5iI1qvtR3Vl5+/kH
aDd9Qh9Tnpo5aufSUTk/qzmCB9TMstdEfi59yevUW5Fxid5+93Z7eOt4azCL
d4qXiTXmVfxKTDc/xB+Oi83L+dOxnTfgznbgfbw7eQ/Ze4N9bzWuwUz7zxL/
zR2X4mzqV/OLd3OKsuT/hP30nTdwDI/TaW+gD09Qr/xvxL6lHu/ia/wUl1j/
IJbhXvmd1CV/L7Wp+VzeF95snZwOsZfxPf5r4u38Xbx641fpcbF6+Sn67dbr
TvFN5q/LX4uLxZt5H4rtoTrehmRMbRO/0Ru/yz1txnfMX+F3yKuVVy/vgeTv
En918m+9fqfKbc/+/3/Jf3hR7fY=
         "]]},
       "0.20800000000000002`"],
      Annotation[#, 0.20800000000000002`, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwl1WtMl2UYx/E7MyvBUUgJYhAHRQTnCxajv9UoSAXMplOnFWlmaCXSVlKS
owhd5qHmwM1yollpB0QoKlc215y1ZuVhyxcJudbWMqOFisFE7POsF19+132d
nuu+ngfIWFIzZ+U1IYQmP57PCWEFnsOzqEkN4d7EELZmhFDN/vTWEPamhdCZ
EsJn2Ma/g78jKYQe/jPi3/GfZceNDmGe2nPiVfSGzBAWJIcwJT2EE1kh5NNT
9CdUjg3hej0uyL2IWXp040l1y28LoVRtCVay37olhMfkb6fLaK/6KtpPL+Ei
WsQKJ+irRxF91/kKf1+eHNTID9khDEXPF98jvk7v2BjPcd7nPFx8QO4r7rFK
fiOtmBzCTHTmhnAAn+MeNR30Y0wzYzvdjzL9mtTNsItyrDDLcvuZxc5z1wft
t028PD+EY6gWO05n8981Xl/sn6Qfitn3Ybi6Iju/EzFM02upulL2XL1SzDsW
0/UoQzlKPDeNr5Sm06l0tXvH6EjnR9Q+YNY2u37H/IX8C/kWoNbdLulbb4Y+
2jbOc9if2EWcWRfb0aN403sdcOed8lPkJd0eQnI0D51gl63qWsQq5UyVO0NN
jD7s3Cuvwvk83czXQzfSq2pHIOZZH5rthNlaUDfR/LjOe1iIa1Hr3KomwWwb
9NqIRN/RZppER9rRzTTDPn5w5++jfej7hb5D7n4Vm9x7hLxhdrrEnvvsO0NN
ifnX61NK+/lOusfXvpE0ufv425Ejb5maw+a93xzZzlkoMM9fZvsbqXbeS//B
Q3q9LneU3Jj7xtMb9VzE3yZvjL2kIRkJYvFi6ezHxTvEM9lZGC2WYfZmvZqw
VPwFWkXT+CfKzUUWe8Bzx9NB8+fSeP5RmG8PdWpeRL/3tIbOVr+WFpjtsrpB
nLf7BPk34bK8xeLdev3J/oXmRb+T9jpHv0Tv5DTfcXVd9BQt07OTfut8Rq9m
uVtRJj9Bfqb6I2JH9ftZvAs/sid5Th4OsSfTKfpk03z6m78hv+OgWL1ejWZr
wMvRDsW7vK86/mrnp/EU4viP8T/DP+Sd71a/C/96f9toH51J79CzgpZjGLuY
pprvVzXj6BXv9wk9Buk5vytn8Qcu+C5O+86O0pO0h3bzz5M7Hwejv5fOX9Fv
xA7QI/Sw7+419h41h5zfl/MBey/eNtMW8Z30S1ov7z3x6b7f1ex17Ea0R/dR
u4ivQV0lbZS/na9V7CO86rxenzVRH8yVU2SuZjtZy19sR430JfVb+ArFNkV7
dG7gvzvaL93AVxC9P/Vv6L9Kr9361+b8/3/kPxpt9s8=
         "]]},
       "0.18200000000000002`"],
      Annotation[#, 0.18200000000000002`, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwl1XlM13UcBvB3mOI6GIaoiRgQkHebV2GWtZpgjqbUOgDPdczJsFqGayKh
GJkFVCK5YemW1MwDYfyTm3Nu2bGUXOSVs62tWqw/ihY0Fen1W388Pt/P837e
x+fgZ/bqdSWVN0REg39GjI4oHx/Rc2fEjDsiUsZGvDs5YnhORDL0ZkQ8cVtE
d3bEt7dH/DMx4iv8B26X2yreItZF64Q2+k56Jb2KPlPuNbg4LeKtMRFr74p4
EdZBDV8pfxks5q/gL8Kz+N/Mi9gG883VgNunRmzHc8QacRMsEGvGHWLv47li
JfIfh5VqroB6PZ60rlW7DLeaoY6+nf4OboDD5q4TT0qjWz/L14iboNp3m5z3
fO+R86m5a2mf8L+Bj4sdE/tYrF3sCBwWa4fF5jnKU4afMuMl2vfiZ+AbeRfw
RfiN3gvL+K7yV+Ln+XOcf6b7yJgkV/1hEyKyrWfjHFzsvvrpH+Kr9rAXD+KX
5NarccqZnIY1zqkCJtlfc+IuaD9CDW0zzKJ/RK+Rd1TtX9SZkR4xOStiorcx
DR/S75jYQdyN7xM/ZK6T1gdw6nRvB4rUOqHWTrUum79LrBOK+HvwD9ANabyj
YCn/Wf5W/n7+82LnoIS/Vt/r6g/qN5jYt1kGxWbirWJDtCtiW3xvhumZ3qVa
+TglsV9cQ98EL6jXgtPHRUylj8YPqHM/fEDfBTn0LMjz/peb6ycz5fpuVysl
P+JmyLBeJnZZbLzvg2I30UfCGOtysVzafHWb1GyEMr1TxUZBptg+uW2QrNcl
8w7Z90LzdORGrOd5BfK9g6/VOkI7ACfUPw5f2n+/uxuAenof/guy+Lda18EE
byrZ+5qn9+fOKLzPbj1Oww75p3Aq/6/ynvZ+khN/gzidtk3+rVPsF9bz3uiO
WtXY4LtV3m4oMFey2i30JO/2bbPfYv2o3P1if9r7M/ZQCoW05Ylzgd38n7mv
POcxjn8sXxreQ2+j71W7n+9fWCFvoxl+1r8aD+Lf9dmIe3ENrUpep/y51qXm
eNXbr4LXnPEGuMBzHlY7i0J7XKpfCaziXQlXEucrPlzOPjwCd+Dr6j0s/lDi
NwaS6PvpleoUO9sSqPC9So8lvh+DKc6vWI81vC3udS1uxjtgkX0VQSE8aOZ5
znIBXqjmSb267PcLPNKek+ER9zwMfwfdcNac+c7nHD6TuGM179Z/SP9aWqU9
vY4HvKlrtAL590C5GWbjOfA3fQA28T3HX437Er/56vSIt7qTl9W911wVuABv
8Tuwi75EnUXOoRj3Zfz/f8Z/nhT0uQ==
         "]]},
       "0.15600000000000003`"],
      Annotation[#, 0.15600000000000003`, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwV03tM11UYx/EHS5djokPAC4UREMnFVauBl3SugcIqt8os18oCNpNNoiWU
/+hsulC6rCZkLIXUFEUITSj/sbQ/arrSTbqMNKTWatHVWHkpe/3+eP8+5zzn
eT7nOed8f9lP1t2/Oikimv1UTIm4Mi2ikpZeH1GC+tSIvJsifhD/HotnRAym
RQzlR5xHtrVv6Tkcy4w4Q3/PkJ8d8QcdMP+UflQQMUn9oHgKPWrelhXRZf24
9W7xbuMD2Mn/DWvbsJFnC32BVuhlPZ1NN8tvwm61TWpeVlNjrT3hxb+DNqvb
LF5Na7Dc+iMoUb+UPq2+Dm3y18qfI1aKan6X5PQWRlQZz8+JaOCzLi+iUd4T
YiswV7xRbA0eM7+oppbfKlTyaZC7iJYnxmJrsBJbxFfL77Bvvb5eMi+T00zb
eW21VznvVrrLvF+81XqP+TfyD9EL9C+c4PEZz1P4Sc447zFCJ3jDZONkOu6W
iEen2oPXWLWL6b1FEfeg0njEXidvjvgcp1B7g3luxFN0g/eupwOT7SO21rhY
P5fUrBN7dXrEYR59GBUb4d9vnEkX8OpMj7gsnqR2DG5Vm+e7+tV6sf5/o/nm
eXp5D304jHK1G2kZfZdHrvP10lfsf4bP1/beordSZ5uNAbF5dC765K1yL/20
Rf5MexzX08dYoZcq7CuO2I+8xBm823Pe+nls9112oB3/urN36B7swlXzDWou
qnnAuWucpYjnLFwWu9t5vpT30MyIZcgUX0ofxFd6HZWTJTbeWc7zaeW3Vn4L
fdtb/S2vne52H6k3OrP+v1CXQ3eK7Uj8D+U0yS933gp08lzCYy8tM09RNyxn
m3dPsk8LzdBrsng6fcb9tIlV0zdpI61DJ88T/D9BK5a7sx/1eoe9J/qeToq9
Lm8rQvwDta8ZX+PM12KJu9hk//voNN/20cRZ1X1I071jJ/ZiP/Zhj3dN41Ni
nE4LnaHKnVSjwLibVw+O6TtTznQcMr/d2m342f5jve0IrZXzcKJP5x7vHFne
9zqaYj5BTkoC87nOn2MtD3PE/vTuE/UxCT1iz/JINe7yHaTTBvOD4lONh8Qy
6AU1d6mdjwyeC2mBnEI87qwteikQK8IO4+1YYN+36BT5+Yk1ubPoSv7/Je5T
PFWswx7D/JfxWS//ijffRK/SJvoi7uSV5FxjMOpNJqtLQ/A7y2vYfZym39Fz
tEj+IB0yP5v4xvAPfuHZJ96PAziC95Erf5F95unttJyDcnv1tFBPM6x18Tki
3iv+P53g9Gw=
         "]]},
       "0.13`"],
      Annotation[#, 0.13, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwV0ntM12UUBvBD4GYs11C8oQSEIASI5QCrUU40pMtW2SZsmIW1iWuaXAyC
/EMzXEmbbZmSZZItljI3yxVbtVo2i2xr6WxlzSgYdNtMqSmr7PP74/k+5z3n
Oc95L9+cho33b0iKiOd8Ppka8eP1EV/NjfhsZsSK7IjcjIiBgog8PKR2Xu1z
tRq1O6dHfK82ZP0tPofTSyJWTov4htcrRRETeoblz6mvpE8ujLhqVsQV6ySc
TV9LX84/xfo//sm4i/+NmRELcyNKIQ0K9RbAEtpe9UZ+pTT7xC/DQ3wW0JXA
cvlZfKrwUhi3n3L5JeKzZrbr7dHThm+X67fXmfkR+XoqzbgF3qV/Qj1DPk++
Qq4cjsm3ypeJ58mnqR/SfyufJvldfF+AxdYV8KfZZXgUZ+vNgnS906COvpt2
FV6PU+ga8TpYcEPEe/zfoF8oLoUq62JcAjlQCAWwGYbVJl0X0Wc/k2dEzJ4T
cTXOwunFEZl427yIrZAxP2IOTJh3ObE3dzeOx3BSnvehmaE+HRbZW4PcKNSl
R+z2poMw4Dyp5j7mLTfAWmiBTZDujVKdYY+33+dNe+iHnLfLHqfIL+N/r95B
63+ti+3vV7kxmlXe51n5UfEOPIwPm/Uan5PiXtzKtw938j2I+9XH1f6CUT2p
Oc5vvxmwSJyJ50KHmWPqHWY8CSVyVWYX4XH5Xepr3dk/7vBuZ78LwpmX8rji
bmpob6J9na4X9sMj3qcB1kCKuzrs7JcS/wSe6kxpUE13gv8ZcQGPQjiSFXHK
+mt43t0fV+/GO6HIOxbDxdkRF2A77Xn7KHTWfL1L+b9lViXuw9vkdpr3gf/w
fbjPXv6gH7DXTLyF5y71y/Kn9BzQ0yE3aPZp58rl+6X4C1gvX+wOjvJ8Gy7y
66D51H39ov9j/BuudPfV/JfBXvee7N0nQar8Nd5nsvik2RPOMcxvxP/3M+7F
f8sdVTuLf4C9coPueDfucee9iTuG5eYcwPthk3wTLKNp0rNF/+P4KVwvvxoa
eeTbb4H/4RI8oF5GXwF14lp4yX3ugRZ72cy3Fa9JePPZaN2Mm/F8Pp24xbo9
ocOP0rXTN+A2fDPfNvkHE2fg2QOrxfVQqXYbdNK9Kt9kb81QL7fY3raKHxbv
1N9I3423830Gdqgd1Pe0eB3Ni+pvJtbiPrwDd0GNPa6Afvrj8kfoD+GP/G/X
mvmO/DG4x7wTPOpoa2FE7gLdGfoPzZ3i/xq3Pq3nd7Uk/8NPat+p1ahle88R
tWrxHfA/qN/uxQ==
         "]]},
       "0.10400000000000001`"],
      Annotation[#, 0.10400000000000001`, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwV1G1M1lUYx/ELJirRiyZiIFAqCnSjK0wgghUIY9XUtZq17IWCqS0WgdgM
KEukMNuyJ8uFLFmlWa3Ncg5ZuDbdjFEvqvUw8wUZtHI92INrSLo+94vv/bvO
da7zu845/7N7ftMjd7WkRES3n9ZZgryItfSqzIivciKuvDYiA8OzI44VRQxh
fH7EZ3Mijor7r4n4kJ4y/kj+06Qav0uHExHH8b78ED2GZvUv45XkOv6H8Zp4
N/9e63aiV31lScTNaMqNWI8n+a2j2+iD6m8VN9Im9PPYh/XiDj4beWxCC59i
HjsWRWyVf4p2YzsWO+MTdBseQxc6USK/mW5BC9rQioT8jXouw7363IM2nquT
ak/l8q30VfvYg/v1bzdeTTfTNbRWzXI8a1xHd9IW66d4l2KfPv2oL4i4DWm+
QY38S2pHnOUU9opPWzdAv7V2P/2TnpUbF0+K/8Wovc0ojkhPsiBiGk3F3uv0
1qMB1fLn9PlkScRJnECnnn+5s3/weWHEl/gC5/gl+Jboc975ErQjX/+siOfn
ukvx48hTN8h7CHfyPs4nn+dzaroXR/Sgml8tavCduWJvrscbq7raWXlU0xfp
C9jt/E32+YH5++QXuYM1tJAW4Xa+vTzOz3Of9CLPKUyizh5X8l6Bw9bvcL6w
93e8wxR6iNaruaR22L4+xus8Kvj20Q71q/iXG5fhp2zfn07QUvq09T24Xu1W
Z+2yz7vdbwc9qOcW+xygo3Jv0Pec5UfxCXcyQR+15peFET9jjMd/znAZI/xX
8X2Gjqk7ZF0fzz4e6eZnItO+Wn3PdjThYTQnv7V1g+pH1O9Bo++wDhPI9AZX
OO92/VbSC+43Vf5velnuEqaS9+87V2Gaml3uKS15R/KNvu10+bX0jL1ke2+/
6tHvHF870zcY1XuBPRRgHo44w0K6nLY5Sz19S/0BHMT36lN554izMV08Q006
nYlZ1lxhvNRcBs0ybvXmys2VyVXSAvk33Um7/Nv0AOrczwZ3ukx9pu87G0fU
32Q8bp8bzVWKc+RzcdRclfGEuU3mqsV58vkYNHeL8Rnv4SImUZR8C7QMteZq
0Kn/fr27aL19VVh3wfkaxAPyc625QZxLa+2vUZ+E9TnGhdaXIIGHrN+lvpku
VV/K57fk/0/yTsynI5CRvBtU8EqjaXwmfY8s9XOQon7Mm5jwDk/Ts/gBS9Q/
wH8D/vAdf8dJ/nfYT4Pc/0RD49w=
         "]]},
       "0.07800000000000001`"],
      Annotation[#, 0.07800000000000001, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwV0ltoz3EYx/Fn7VKUOWxm2GYHcyj+mxrNyCHnYmlKKcftwmEbsVlTDtkQ
SbviYlwo5EZmuKEcWwo1c8pxllGL4WYuFl67ePf5Ps/3OX5/v6xNVWU7kyLi
GwpSIhJjI/Lp9tyIHdiG6pER5fkRa7EGr6ZGvES/uDxUZkXMk7eer0Fs1fiI
c2MiziMxJaJFjWb+BRMjFmMpFvIvwml57fKb6ZvREQ/lvKYvB2vw/aS/0e38
hz5WJ3dCxDM6ZFLEUAzLjhiOSrNMyIiop9vULuXr0+vetIjvtGFExJH0iKd5
EY20V411+v1ChrsC9evGRZx0t0HuKXqTfQPjxVbIez4qokytDrqZXavPYnqN
XUpb6RKa7y2a5bWxG817nb6YbC88x1g9O+lVd0U5EYVIoDbNjgURy/QuNM8t
eWfU+eTugxm76CP2O/4i9yvFHVXnh7x871yq71wkvGkeOxc5aBLTiL1mr7fb
TPFl+uxOjXhC97FXe6c6uooeFltGe9l/6SF2Nz1Iq9XfhRq8UfuLmXrwFffN
9gDt8t6qu1L8Cnx0vuS7nPV99ujfQjvt3oFsu2z1HSuwEf/UHUCxfS/KOe6N
z8jZr349bvMn+R/u0JH+xwN8aTQVyf6dWd5lNvrMsZxd7Nzv/AfHvPsAbaLp
/Bt81/dmmW+GVDV79eky72ek2C1TXK5zm30u6XMF7frezYwo8R5zUD34jtiF
v/KT1d9r/nI1T4gr9o1mId3b99inyH0fvWyvQr4Z8qajRnwrO+Hc7W6LPoXO
JeIvqPMfSY6U6w==
         "]], 
        LineBox[{4653, 8561, 8557, 5755, 6972, 6971, 11050, 11049, 9605, 5242,
          9604, 5243, 10933, 10934, 10931, 6407, 10932, 7783, 10089, 5762, 
         8582, 5763, 7015, 7014, 11068, 11067, 8587, 10123, 10122, 5764, 
         10939, 10940, 8588, 8589, 4667, 7834, 4684, 11082, 8626, 10165, 
         10164, 5804, 10167, 10168, 8630, 8631, 4687, 7105, 4702}], 
        LineBox[{8291, 4948, 4824, 11166, 8955, 10468, 10467, 5460, 10502, 
         10503, 10500, 11554, 11553, 4953, 4835, 11170, 8983, 10509, 10508, 
         5484, 10541, 10542, 10540, 6172, 11563, 4962, 6722, 6174, 10535, 
         6173, 10543, 7495, 9018, 9017, 9016, 11575, 11574, 10565, 9145, 5500,
          9758, 6184, 10562, 4968, 6724, 6185, 10559, 10564, 10563}]},
       "0.052000000000000005`"],
      Annotation[#, 0.052000000000000005`, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], 
        LineBox[{4654, 11051, 8564, 5760, 10088, 5757, 7782, 11053, 11052, 
         6408, 11652, 5761, 11653, 6409, 11054, 11055, 4655, 7786, 4666, 
         11070, 11069, 11655, 11654, 5801, 11656, 11657, 11071, 11072, 4668, 
         7836, 4686}], LineBox[CompressedData["
1:eJwV00lszVEUgPHTmkKIUnOrdKBzI8YFFpZaKxJRtdAG5RGNqYagiXlMGhFp
F2pFonRDwsbCwhQLCe3raCEkCJ1WZSH4dfHlu/97z7n33HPfy66p27g/JSI+
YXh6RGtxxPLciGWlEUtRNzPieEnEfj7BheYKMH5xxLiyiAmjxs+CiLG+f3B+
UUSNmCdzIhYbP+XahRG70JoXcR9Z5qvFLOC0RRFTMZQesSRbHZzuexq+yD0k
Zp3z+zIjMjIi7snP5MxZEZfmRrxV98j8iFVZEf08iH/zIlKtp4prEB/8zL7H
jU+iKScixfkX3fcyVln7637XZ0dsd4dGruVs57YviDjg+7bzD8k7PIoelcnZ
bI8zauwtjDjLH7lLzhs1VKhhA1LynY+k+3SiA93owi975HAuVqhrJZrNJZ35
SL9O27/fvqd4gBt4mC/ryRBf4Wu4ioNqrFfbURzDSzUs1ZMm3uuNutWV4B5e
o561WI2t+vTK3av4NfdZb+RePq+WLjnn+JWzO40nqrGc16NCj3bwTpSYL8Ut
sTfcu9i4CAPW3turXOwWNVar7Yie1+Oh2tpQ5R0rkafHc2Z4F/nDevxAPwd5
hdxfavqNEeyWm0CW+HT7pWEKJoubhHf2yNPDfHz39n/8rj7zkH60cAcn8cKZ
vdyDNjnN+vFYH56Lf8T7xN4032L9DhK+7+rDHk6I/Wo8xu/+Gy9Rz0XveAGV
1ragW6092IY6+1SN/pe4g5PYJKadP+A/H1qQXg==
         "]], 
        LineBox[{8331, 4954, 4836, 11172, 11171, 11556, 11555, 5485, 11565, 
         11566, 11564, 6175, 4963, 4846, 11176, 11175, 6176, 11567, 5501, 
         11577, 6187, 11576, 6186, 6726, 6725, 10567, 6188, 10566, 11579, 
         11578}]},
       "0.026000000000000002`"],
      Annotation[#, 0.026000000000000002`, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwV0ltoz3EYx/EHOeQwmcPsb8PW9p/jbE2U87Y7sZVx5bCSYmFbMpRysywh
ImOuuJA5rOFqu1OUIRZ3YsxW0hwSZdQ2ef0v3n2+z/N9jt/fL2d33ZbaURHx
EnnpEfmLI+pmRbxeEnFwRkQ7+x4GU3eomhtRRG8sjZiYGXFSbOeiiEnOHbRY
7AExTfwXCyLupzRHDXqBvX9ORDO9jIf8LfQK2vR6I++xOv20i75wX6VXr5w9
dIj92Xl8RkRynpnlpC2ImMaenBsxFenIzoqoMcde/LZHifvl4laifWHERrO3
0ZrZEY2JiAx17mRHJOhpdjIvYiAZ0T1TPH+bXnfR6dwzPeKd+7f4JuYrnqjV
hUHnUnv2uFtnpymFEevpDr7n5thJS9mrnFdjk302I9Out8x0zo63aYJdyV+B
teLWoExetfwNdBft1eMD3qOM/UfvSrkVeJqahz6jZ/jHym819yPz36Tlch7M
9yb2H6Il9JX96r3TD3Yt7Wa3eMdL3vMqPc9X7f3O0hH1Vqhzyvs2IfRq5h9N
94k5rv4JjPGtJvgntnrXn3r/wj/v+50O03I1OuzcaN9sO6SJb5XXxZ9wfqtv
g5pHcEidBhzGR/PW035aS/toHc1CNkbMPIyBFOYaMFOhfstw3bxZ6n3h/0uv
sbf5zknnAuRjnHrbzfDJbEftegx94vpR7D7XfRHNof8BwvmEUg==
         "]]},
       "0"],
      Annotation[#, 0, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwV0d9rzXEcx/HX2qKU0mZnO5tfY8zvQsmFpbhj0rhwZcqNUbNW/gGLpFhn
zplR7hAujFuXLmyk5c6FzVzIsZY0Logoj3Px6vl5v7/v9+vzfn++HWcGj1+o
S3KXqi3J581J246kSEeak5ltSbNzgVqpheo3JQ10b4Me9e/lvuCvGnm04zzO
y/XweImTtLA+Gef3upF3U3J4XTKw1Rk/tiZHcUjcgw86k/u0vD05uZLnmuRS
MRmmMff+a0t65RdXJydwqb5HPKbc8RDreJx3501zjK1KKtgg16jv79pkRHxd
vqS+XJvLeVp+QP6bukF8K37m/JQ+bEku8/1h7ys4J35nt7Pic7RsZ9KPN+zW
abc+M56iejUL8t0Fb4P78fl286jpst818xTN/9geBRwW9/N/wn/I/XvtsMss
X+29Gy/KVdXtwyZx0dwrcI940Vv97Eq+4xK5Kv7uSP7QnPM0vqFJXrPm+ORN
J3hN6XlFL3w75v/02mFE/QGsyJWp4nuZruor4QSOyh9Sf2ejd+ZzC2/TOHXr
PW3PUfk+LOEMztbO+g7q+w8fImfK
         "]]},
       RowBox[{"-", "0.026000000000000002`"}]],
      Annotation[#, -0.026000000000000002`, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwVkU0ow3Ecxh/mpVzkfd6NMeFiFzfsSsiKq3JzMEq5KwflZTFDOJAoagd2
Q16al4PRll1mycFLq5WFHJbDfHZ4er7P9+X5fn//v2l4zO5Ik+QE9yXSWaP0
AJ/DR/Ap7Idfa6U3cJMvfVVIYThZz1CDtFknpcOhZikNfqL2TU9vjdQHwsRB
PPqJLWXSFZ4B9CV+HyAKvEYpu1waKJRildIgnIO2FklD7LGjF+jzgawm7oD3
mBGeI/gt4rfMHhdsIJfHnkS19AdmyS+l+rlrhfiOnB9MMh+EW83SWgExM6vw
cYt0An54S2cxd3LPBfDQ28V8N+ggH6UeB5/Azdw+8y7YjN8MsZ/bp+EpEOEm
B/PjIFbKbngCvPOuNjifu4345sJWdJy3/1qkDHTSJGXCCfQt/dEq6Zn9EXoi
8AvaTeyj/oj20R+Cr9EH9O9QP0TP0bNNvAVGgTPlz71e/tsCsY3/uMG3Xgdz
aAO1dr6ZjboTTw8e8+R38byAA+hj8j3U/wHibGYX
         "]]},
       RowBox[{"-", "0.052000000000000005`"}]],
      Annotation[#, -0.052000000000000005`, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwNkU0ow3EYx7+TKSV5H2ZjXmajeSkcJVclOcvByclK7eboQkbixM3BcFt5
q2012yxNMzlJTWiaHDSaWlP4HD599jz/5/n9nt8z25x7esEgaRWKDVJ1qxQ1
S8Fu6YY4YJNSOEQcbiLGSeJ18hO90n4X1EnjHZIP+4gnyXs544B4zyod4hh9
cYjQF8EXsE3NI9+f4YHfWfwKceoLfP+BX+rz+As+qBlkviEwtUgjeBgy1C9i
D7wzoxuba6WlGmZ2Smt4nnyyXjpqlro6mQ07sQNydukTTizSMaTpDeIQfJPP
Qx91/XBL3wC+w55GzsQJcNGzwz0rzLXZzj5xkTkKUMX3kjbJCFvk/8j5XbwN
G3ukU/qW2dklfV6YZYczkIFy3lzJ2yuwgb2X4TfmKsVmeq/o3aA3S18Yog72
C3bunOK+Md58z50pEzsnH4Zd/qtR8jnOT5B/oe8aB/jmx0+ca2VfIWILThPH
OOOcujP4B4FxZVk=
         "]]},
       RowBox[{"-", "0.07800000000000001`"}]],
      Annotation[#, -0.07800000000000001, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwVkU0ow3EYx7/KisRh8xKGjeT9LZIS4uwg5SQHKymFIqdxckMZuTg6OE1i
mXAw1pbYyuu8XFCMdljyEqUmnx0+ff/P83u+z/P8fn+rbbR7JEGSA1aM0pRZ
ihRIB6gXai1SDdRlSPfl0gO4C6VtcFFfzZkfvaBWnF2iDeTqoQVPiDhM7Q3a
RrxQKu1k0ZvcUhFzK6QAbNGjwyT108MGr3nSH/WGXPpmSiloaomUhD4VS73Q
B3P08cE0Pdz0SMQbY//1Ku4BG/BBvMj8b/QLLPQ9Qk9gnvwY/mW8lcwfZ6dg
jrTG/k3pUhRtRj3sE8I3kS1doXvErey1iZ4Sr+I5Q13EpdQ70QFqw/gH0cMy
eoCdOe3MeyM3yXw7RKgfQofBzD6NnGfG3544yn3fufcnxKzSL/oDfjzP+dIL
3FHziN6itvi/QLtRP/U+uGbPYzxOPA7Ozom98Z0ggC8Is+Rn4JjvZN6hC38n
b7qL34N3Hzz4jexkAj+1Pkjj28CuPeg/CFJm9w==
         "]]},
       RowBox[{"-", "0.10400000000000001`"}]],
      Annotation[#, -0.10400000000000001`, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwVkUkoxGEYxp9BlBQZ+z6DbCnUzMFJyoEbBycHGZQSRiMOmoNl5EJyczUn
BzNFlsaS7EtNZDm5SRqGJGOJ+M3h6fd/3+9dnu/7m9p6m3oMkuaQI1EqM0sx
WVJRqhQNm3OlKBgPP1Okg0zpCyYQX6VL90VSiHjNJAXRMzqk5ghdkD+DG+Q2
UaxROsmRpsn54RXnfr5v4CU8oOYcfsAQuuXbzJ48dJwk/bDrFxnwGIk68LtQ
Ig1BC3EmPrup7UIP1DuhlXs847OG811qa2FfmtRJzg7v8rgrtXX0FsKlbMmd
IXlhS77kgZV4XYc+5KBvC/ZDN6ymZ5EZVcw6pa+fHjs7GtnVB6fCnvBwjJfc
ZOkNvqMZ8q/QUy69hP1CC++zXybtoXHkYtY0MwYLpAHk4zye+9fzXnGwIfwf
4B9zA3j5pmYbLzd4sZVKrWiWGR14aUer+DDyrivQSt01Hg55u0voY886slG3
zLmB3gj0RzzPPFexNIk8nC1T54UTxBXsfsT/KPEOc0ZggHiYbxd1TjhGbggG
yT+hf1X1azQ=
         "]]},
       RowBox[{"-", "0.13`"}]],
      Annotation[#, -0.13, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwl0t9Pz1Ecx/HXF0OXJT8qRZKftSnadCNz4U4zKw0Tc+MidMFw4wK1tVmG
fyHNlT/Aj1rT2oohNXfYzEgXNS5asxkezcVzr/N+n9f7fd7nfD7V57qPXSok
GcCf7UnReostyTL8Fa+g5zck+2jDjmQvLd+Y7OHr2pTMlCY3aJN4rixpsf9i
ZzKGm/JlW5NH5cmXzck23sNqC2udJ3eatxNnMFCZTMhf1uMlHRQ38z9W95a3
wQxj+h3VtxXdavr16nLuuHyVmkV6R3xPvo/+EN/anfTWJD04UZscr0va0WF9
1WzXUeyeJfht3Wjv25pk1vlf6bDzR1BfndShxRxD4v24wt9MB+Wa6EO6fJde
fO+tHzjzPp6a9YC4kWe83l3oE70vqr+APu+6Sn41VqLfzHcx6h69antwG+18
bahw1/mlt6XD9Bpfq/wRvHOvKUzikPggfrnTc/EQnqFWrgZz8vMoUt+mzyfv
3UE/0u/eYxY/3eWkWU6h2Myf+RfW+Z72FukMHeF/XZW8wasKM6mZoGdL5Onk
0h6dplMY5a90zrTcAu8HWvC9quXGS///h/8AfxJrUw==
         "]]},
       RowBox[{"-", "0.15600000000000003`"}]],
      Annotation[#, -0.15600000000000003`, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwlks8rw3EYx9+cFkn5MWxjxmyIUZQc5SCnaVOcKNGYTCjlJieh5uRPoDhK
CZEfF1YiteQiNlPzIxmyRnkth1fvz+d53s/z+Tzf78c2MO4JZEhagQen9Aov
EC6RjFbpxyidmaV3m3SBHhZIl2XSEWohb4UbvCqSzKzv8NSgBvY+NAuN1kkZ
1fSold4gVilFoJFYglwDnibWLtSFVlikGWqb2d+WSy3oSY00S8xkl4L50qpJ
asenQvpwn0y0k30P3rVSKcQ+5uB++MvhHP86vTbghD5u+vnxPrMfQY+JzVO/
WIHCGCwQ7+M+rcVSnPpOZr6mdwfaWyU9EvvlnCCeZUhxzhY1S6zv8UXgmtoJ
4kPMPQh76XlghxmmiAfgEz4gSmyXXJL1N3xBmPr+9Herl7bJn6EhOIVR8pvc
s5u7eCDBTG7O7oI54l7UAybueMB8w9xtmhl96BX+XOJ+vn8OOoy24XWT2yeX
YkYfsSQ6hNrJVZEzUO9AvfR75L/b0v8L3ngfTs6czJOy8cR5Q0/O/zf1B8Hj
ZTM=
         "]]},
       RowBox[{"-", "0.18200000000000002`"}]],
      Annotation[#, -0.18200000000000002`, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwlks0rw3Ecx9+cRDmY2YPH+TEzlnJaKQcpbvKYi4vWMmmTHDSHcZKJPOQP
UBq5OhKR/AfMDmoMUUoeSszT65fDq9fv+3n6Pmyu4UhPOEfSGvyUSDd10jd+
xPllkqdacsOTSzJs0r1D6qqU7BbJS7weWqkLNkqfxdImuV9qcp3SILkAuRC5
Qqu0Ry6PeAGEyI1ClHwMT+MZ5s/yHcPdHmndLvXWSm3M7cftuI9ZA3wn8Ja5
J3M33NIHjtOzAO810i4zEsSzxCOsi6i1QIa9J1iPQ9ArfZFfpGcJ9tn7AA7h
rpy3oPYM3+EUTkInZ3hg7edsQ/TMs88Y9XMQN809jrjnfZV0jCepO8UG+63y
Zsf0ruAMZ7sBF/EW3nub2QnYobaDGZ3gJ96Or6hLwzJ9G/QvYRt9MWrDzI/i
S/abwi7qfZzLx7ma8Rt3foEmvq8N6RaeubeH30hmzHwTCNI7Ag0QAA+kSyUH
dkKK+gp8gQ18wjuck89yRitrC2d65T+SdPz/j/4Ad2NiGw==
         "]]},
       RowBox[{"-", "0.20800000000000002`"}]],
      Annotation[#, -0.20800000000000002`, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwlks8rA3AYxp9xc6BmbLMftlmYTTmQkJNyo1nk52UbJ7Gyw9AOftTkrDhI
ZuYvcFKI/AMSOczBtEUpixzc+CyHT8/2vs/zvm/fzR2JhRYNklJQYZYebdK+
T3pATY2SsVYKG6Vvt1Rtl37rJQv1Z5MUQr1kaqgH+TwMZvxx/H3UxjxSPzqE
x9Ag7bVJHvqT1MdhCsL0b9kXRefwVeE7Y44P3y5zVqin0TW8X/g+YR3fG55R
r5THP8AtG/g2YdUq7TRLx2TyDukUzZS/wxacQBYGyRToFyFJ5oL5Wbyd7O1y
SnfU78t95pfqpHe0soW96AQ3TLdKMzBPbhuSfmaTT3HDFbe9uqQli3SJP47e
oB7uvUadqAOK3NHLex6xJw05dh+gh9BD/YW+DZ8d0uQsaAaNMW+WmxfQJ/Yk
2Odir597AtDNPYUm6bydN0CXmfvB25fAR26E3zIIAd6xjWwUIpDg/g6yUfSH
fs76/5/4A6OcU5k=
         "]]},
       RowBox[{"-", "0.234`"}]],
      Annotation[#, -0.234, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwlkjssg1EYhl/XxIC4FqlLXYrSgYSIWDFgICLRVEhdRmIwiAgDgrGqDJRY
2IgwIAiJy0aYCK12INGEioTB4hHDk+c/5/R7/+98f02OgZb+MEkuSDBKndlS
IFlqxj5swH5sw7GcW3OloURpuVjywBKswgpEGKT3QikERUXSR6lUiEP4Hcw8
l1FfDr3kGdKlBpNkYf8+R/qxSH1p0ie2cLZB5joMJ0lHVukYDuElT6oioxqG
6aXJLM1iLxnd1AWwH/Lp287ZeYrUTs0ZfmD9CJ5M6S5fWsM+1l644LwVX2IH
rqD+lZwgHGZIz/gAn5RIJfS0yDtPeR6FQfL76cdOpg22OY9kDlEQDvWpUjR+
I7syS6pjfcu7a3E8md4CKQ6P0P8kc56AWt4/83c3mIJ5cMEas7xhDkGynKwX
wA1G1ldkXsM49WPwROYWvbww703cQm977LmY8y7egS/u9Q37/KabbxjDXg92
UH/F/LvwNHc1Ue/m24jzRs5r2G/lzm0wx74T7GR0ZP//l34BdDBiHg==
         "]]},
       RowBox[{"-", "0.26`"}]],
      Annotation[#, -0.26, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwlkr0vQ2EUxh8TEYPEt2iqiurHrY9YpBZiEKKhF2k1rd4Ko0qMhDD5ByRt
xYCkidEmPv4IEV1E2pg0LZuETn6N4ZfnvOc953lPzr2OZCq0XSfpGLwdUnOP
5EEDDum7Uzr1SMMDUs4uBclnOVfJp9FfNIOed0srhrTP+cktHaDP6Bb1j/RN
9ku31ByS/+mVRlqlBvxH0TvyJvfpQanSJq0ShyECR8xy0yI1+vCv1aAZyMIJ
9VPkpuEdjzdmtNFfQHe5L6IV7sq1ezzyNslP3oAvcrPtUr1LihFHIUh9iDsT
FolTTmkH9rzSA/5jzFpi9nE0wdsWmLAOcXiFCKxBmL4YGgUn9UX6rC4pCffM
GOiTJmCed5Zq78EC8Qd9OfZ2DZvsaobdnrFXg74qsR9dZm8mzEGC3VqQx/8F
ytS4qHEPSZ/EFdjA5wq/Syjgb3G+IPbxfhP7dfONoniU6Ivb//+BPzQ/UeQ=

         "]]},
       RowBox[{"-", "0.28600000000000003`"}]],
      Annotation[#, -0.28600000000000003`, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwlkUsrBFAYhp8pv2AuYZLLjMsYIimywcJYKTXFXJazoCxcVlJkIixsLZQy
m5n8AzYWMqWx9QNkrWZhRS7DM1k8vee7n++cnsJGej0ArMlXG4z1wdww/ISg
0gXf6lkS3o0FhuBDnU9ASkZiMCpRc3LmJlqhPGidPMfhRd6s2TZetEewA0JS
sEdEDctjL9QkZbyqP9EJA3Iegd0oLHifcBiu7B9Ri/pC5pfUmPa98YaacVZe
4s46DcJSPyxLWqr2yqrj5t1ZF9SuqZPan90woS7a50Ff3VjO3fJSd86JO2U9
H1h/KDP6ZqXinF/tstriezU8T+svqvvN2dYcWZvRd9xU7Vd7b7XDpqy4+6rc
OHPH/Gu1ZK9b97xUp6yblD3f5Mn37PGOF8n/P/oDDsJB1A==
         "]]},
       RowBox[{"-", "0.31200000000000006`"}]],
      Annotation[#, -0.31200000000000006`, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwlkTsvw1EYhx87idC6BW1RUZUwilsHhprc4pJ0ESpMLIigpQmLL9DN4DPY
kVSkJBKDuGzS+gqdSD2J4clz3vM/53fec/6RtZ357RpgQz7CkG6BiQgk5N36
TVZC0NoI+w0w2QezzTCl5/SY68aFOFT7oeL+myj8BGBI38mtrLbCXq8ZMtwD
IzIqX0E4cO5IDqXe+qEDatugTvKe+Wx9pY/9npEZKbkuq+MDUDbn3HHe8bfz
Z47LOqdP7SsnL2YUzKvY473O2WdRv8Y8T2+127cOmhWQT/cWzJj2nkvec9l6
15xUNyxaJ52vesfBTvjVCfdfuv/Cd8rqpOec6AXXZnSqyzvqTft4MivWBI+6
KOv2XTIjra99q5CEo///4w+lPkI0
         "]]},
       RowBox[{"-", "0.338`"}]],
      Annotation[#, -0.338, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["
1:eJwlkcsug1EURhf1BERd4pJSQouBu4EEiWvFpcHISJiQVKIS0xoKHRqphKFn
MNA3oCLoiPAKbkGwGoOV75x99t7f3v8fWtmMJ4qAVekLQqYWjuSsHoZrYER6
jA+p3WpHHeyXwXo7bMhkBGIyJQsVkFOvZbkBtqKQlFgznKvT6mwjhJrg0tqc
XMmb/frbYEB2vafku1L/kL4yYXy8QAvE9fj0/CXH+mRk1POPPcbUgD6dVVCs
dqlL1i9KoBpKZK/UuZzjoRxm1G1Jyqn1a+54ogbsMxiGR3N2fMuqB8bSMu99
rlBv3pM5z5JwpxfnyOoZMX6h/rpDVP9D9dW3D3mXlHvdt0JebuRObiVtXd6+
vX7jYPj/X/wByotBZQ==
         "]]},
       RowBox[{"-", "0.36400000000000005`"}]],
      Annotation[#, -0.36400000000000005`, "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       {GrayLevel[0], Opacity[0.5], CapForm["Butt"], 
        LineBox[{11374, 11371, 5393, 11375, 11372, 11455, 11454, 5004, 11412, 
         5602, 11411, 11414, 11413, 5567, 11403, 5566, 11762, 9944, 5681, 
         7578, 5561, 8535, 5562, 11469, 11470, 11467, 5734, 11468, 5001, 
         11464, 11465, 11262, 11400, 11261, 11260, 11399, 11398, 11660, 8104, 
         5082, 11402, 5565, 11401, 5564, 11447, 5682, 9431, 11306, 9432, 5683,
          11448, 5569, 11406, 5570, 11407, 5027, 8441, 5026, 11373, 11374}]},
       RowBox[{"-", "0.39`"}]],
      Annotation[#, -0.39, "Tooltip"]& ], {}, {}}}],
  AspectRatio->1,
  DisplayFunction->Identity,
  Frame->True,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic},
  PlotRange->{{-2, 2}, {-2, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6716056257729397`*^9, 3.6716056355180216`*^9}, 
   3.671605713937086*^9, {3.6716058101909866`*^9, 3.671605877762007*^9}, 
   3.671605933036618*^9, 3.671607557810275*^9, 3.6716083750573263`*^9, 
   3.671608424829785*^9, 3.671609887670643*^9, 3.6716138582402678`*^9, 
   3.671702841897949*^9, 3.6717073684438457`*^9},
 TextAlignment->Center,ImageCache->GraphicsData["CompressedBitmap", "\<\
[encoded data, 96960 characters]
djXY/xWh/E/8zP+vyP8ln7msyMRa7pFXq1/5T6xOBbs=\
\>"]]
}, {2}]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Akkor", " ", "mondjuk"}], ",", 
    RowBox[{
    "hogy", " ", "az", " ", "f", " ", "k\[EAcute]tv\[AAcute]ltoz\[OAcute]s", 
     " ", "f\[UDoubleDot]ggv\[EAcute]nynek", " ", "a", 
     FormBox[
      UnderscriptBox["a", "_"],
      TraditionalForm], "pontban", " ", "lok\[AAcute]lis", " ", "minimuma", 
     " ", "van"}], ",", 
    RowBox[{"ha", "  ", 
     StyleBox[
      RowBox[{
       RowBox[{"\[Exists]", 
        RowBox[{"\[Delta]", ">", 
         RowBox[{"0", "    ", 
          RowBox[{"\[ForAll]", 
           RowBox[{
            RowBox[{"x", "     ", "d", 
             RowBox[{"(", 
              RowBox[{
               FormBox[
                UnderscriptBox["x", "_"],
                TraditionalForm], ",", 
               FormBox[
                UnderscriptBox["a", "_"],
                TraditionalForm]}], ")"}]}], "<", "\[Delta]"}]}]}]}]}], ",", 
       RowBox[{
        RowBox[{"akkor", " ", "f", 
         RowBox[{"(", 
          FormBox[
           UnderscriptBox["a", "_"],
           TraditionalForm], ")"}]}], "\[LessEqual]", 
        RowBox[{"f", 
         FormBox[
          RowBox[{"(", 
           UnderscriptBox["x", "_"]}],
          TraditionalForm]}]}]}],
      FontWeight->"Bold",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}]}], 
   StyleBox[")",
    FontWeight->"Bold",
    FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}], ",", 
  RowBox[{"teh\[AAcute]t", " ", "az", 
   FormBox[
    UnderscriptBox["a", "_"],
    TraditionalForm], "pont", " ", "egy", " ", "kis", " ", 
   "k\[ODoubleDot]rnyezet\[EAcute]ben", " ", "az", " ", "\[ODoubleDot]sszes", 
   " ", "felvett", " ", "f\[UDoubleDot]ggv\[EAcute]ny\[EAcute]rt\[EAcute]k", 
   " ", "nagyobb", " ", "vagy", " ", "egyenl\[ODoubleAcute]"}], ",", 
  RowBox[{"mint", " ", "az", 
   FormBox[
    UnderscriptBox["a", "_"],
    TraditionalForm], "pontban", " ", "felvett", " ", 
   RowBox[{
   "f\[UDoubleDot]ggv\[EAcute]ny\[EAcute]rt\[EAcute]k", ".", " ", "Ezt"}], 
   " ", "a", " ", "f\[UDoubleDot]ggv\[EAcute]ny", " ", "gradiens\[EAcute]vel",
    " ", 
   RowBox[{"vizsg\[AAcute]ljuk", ".", "\[IndentingNewLine]", "A"}], " ", 
   "gradiens", " ", "egy", " ", "olyan", " ", "vektor"}], ",", 
  RowBox[{
  "melynek", " ", "komponensei", " ", "a", " ", 
   "f\[UDoubleDot]ggv\[EAcute]ny", " ", "x", " ", "\[EAcute]s", " ", "y", " ",
    "szerinti", " ", "parci\[AAcute]lis", " ", 
   RowBox[{"deriv\[AAcute]ltjai", ":"}]}]}]], "Text",
 CellChangeTimes->{{3.671723400619375*^9, 3.6717234626672497`*^9}, {
  3.6717270169831867`*^9, 3.6717274522871885`*^9}, {3.671729609703182*^9, 
  3.6717296101194506`*^9}},
 TextAlignment->Center,
 FontFamily->"Courier New",
 FontSize->16],

Cell[BoxData[
 RowBox[{
  RowBox[{
   StyleBox[
    RowBox[{"grad", " ", "f"}],
    FontWeight->"Bold",
    FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
   StyleBox["=",
    FontWeight->"Bold",
    FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
   RowBox[{
    RowBox[{
     StyleBox[
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox["f", "x", "'"], ",", 
        SubsuperscriptBox["f", "y", "'"]}], ")"}],
      FontWeight->"Bold",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
     StyleBox[".",
      FontWeight->"Bold",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
     StyleBox["\[IndentingNewLine]",
      FontWeight->"Bold",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
     "\[IndentingNewLine]", 
     StyleBox["A",
      FontWeight->"Plain",
      FontColor->RGBColor[0., 0., 0.]]}], 
    StyleBox[" ",
     FontWeight->"Plain",
     FontColor->RGBColor[0., 0., 0.]], 
    StyleBox["f\[UDoubleDot]ggv\[EAcute]nynek",
     FontWeight->"Plain",
     FontColor->RGBColor[0., 0., 0.]], 
    StyleBox[" ",
     FontWeight->"Plain",
     FontColor->RGBColor[0., 0., 0.]], 
    StyleBox["ott",
     FontWeight->"Plain",
     FontColor->RGBColor[0., 0., 0.]], 
    StyleBox[" ",
     FontWeight->"Plain",
     FontColor->RGBColor[0., 0., 0.]], 
    StyleBox["lehet",
     FontWeight->"Plain",
     FontColor->RGBColor[0., 0., 0.]], 
    StyleBox[" ",
     FontWeight->"Plain",
     FontColor->RGBColor[0., 0., 0.]], 
    StyleBox["sz\[EAcute]ls\[ODoubleAcute]\[EAcute]rt\[EAcute]ke",
     FontWeight->"Plain",
     FontColor->RGBColor[0., 0., 0.]]}]}], 
  StyleBox[",",
   FontWeight->"Plain",
   FontColor->RGBColor[0., 0., 0.]], 
  StyleBox[" ",
   FontWeight->"Plain",
   FontColor->RGBColor[0., 0., 0.]], 
  StyleBox[
   RowBox[{
    RowBox[{"ahol", " ", "grad", " ", "f"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"0", ",", "0"}], ")"}], ".", " ", "Ezeket"}], " ", "a", " ", 
     "pontokat", " ", "stacion\[AAcute]rius"}]}],
   FontWeight->"Plain",
   FontColor->RGBColor[0., 0., 0.]], 
  StyleBox[",",
   FontWeight->"Plain",
   FontColor->RGBColor[0., 0., 0.]], 
  StyleBox[" ",
   FontWeight->"Plain",
   FontColor->RGBColor[0., 0., 0.]], 
  StyleBox[
   RowBox[{
   "m\[AAcute]s", " ", "n\[EAcute]ven", "  ", "kritikus", " ", "pontoknak", 
    " ", 
    RowBox[{"nevezz\[UDoubleDot]k", ".", "\[IndentingNewLine]", "A"}], " ", 
    "k\[ODoubleDot]vetkez\[ODoubleAcute]", " ", "\[AAcute]br\[AAcute]n", " ", 
    "szeml\[EAcute]ltetj\[UDoubleDot]k"}],
   FontWeight->"Plain",
   FontColor->RGBColor[0., 0., 0.]], 
  StyleBox[",",
   FontWeight->"Plain",
   FontColor->RGBColor[0., 0., 0.]], 
  StyleBox[" ",
   FontWeight->"Plain",
   FontColor->RGBColor[0., 0., 0.]], 
  StyleBox[
   RowBox[{
   "hol", " ", "nulla", " ", "a", " ", "gradiensvektor", " ", "k\[EAcute]t", 
    " ", 
    RowBox[{"komponense", ".", " ", "E"}], " ", "k\[EAcute]t", " ", 
    "g\[ODoubleDot]rbe", " ", "metsz\[EAcute]spontjai", " ", "adj\[AAcute]k", 
    " ", "a", " ", "stacion\[AAcute]rius", " ", 
    RowBox[{"pontokat", ".", "\[IndentingNewLine]"}]}],
   FontWeight->"Plain",
   FontColor->RGBColor[0., 0., 0.]]}]], "Text",
 CellChangeTimes->{{3.6717235108126163`*^9, 3.671723551034074*^9}, {
   3.671727387471097*^9, 3.6717274112700167`*^9}, {3.6717274786679163`*^9, 
   3.671727635869643*^9}, 3.6717296143054323`*^9},
 TextAlignment->Center,
 FontFamily->"Courier New",
 FontSize->16],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ContourPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"grad", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
     RowBox[{"ContourStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Purple", ",", "Thick"}], "}"}]}], ",", " ", 
     RowBox[{"PlotPoints", "\[Rule]", "50"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ContourPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"grad", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
     RowBox[{"ContourStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Green", ",", "Thick"}], "}"}]}], ",", 
     RowBox[{"PlotPoints", "\[Rule]", "50"}]}], "]"}], ",", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
      RowBox[{"Point", "[", "krit", "]"}]}], "}"}], "]"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.6716059712309046`*^9, 3.67160605302376*^9}, {
  3.671606115856635*^9, 3.6716061376292515`*^9}, {3.6716074248740606`*^9, 
  3.6716075454598904`*^9}, {3.6716083446365356`*^9, 3.6716084010506253`*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxdWwdcze/3v8gO2dkhI5GR7eFkr5CdHbKpjMwi7ahUItJXRVJfZHyzy7lC
[encoded data, 15600 characters]
dHc=
    "], {{}, {}, 
     TagBox[
      TooltipBox[
       {RGBColor[0.5, 0, 0.5], Thickness[Large], LineBox[CompressedData["
1:eJwl1FV0EAQYBeCNGqNrdI3a2OjuEaM7JaRbUiSku9ugu0uRRqWUTgVFpZQS
kEal89vh4bv/+z3n/qHtejXoGRgQEFBPxNxYxCYOcYlHEPEJJgEJSURikpCU
ZCQnBSlJRQipSUNa0pGeDGQkE5nJQlZCyUZ2cpCTXIQRTm4iiCQPeclHfgpQ
kEIUpghFKUZxSlCSUpSmDGUpRxTlqUBFKhFNZapQlWpUpwY1qUVt6lA3pj/q
04CGNKIxTfiApjSjOS34kJa0ojVtaEs72tOBjnSiM13oykd0ozs96EkvevMx
ffiEvvSjPwP4lIEMYjBDGMowhjOCkYxiNGMYyzjGM4GJTGIyU5jKNKYzg5l8
xud8wZfMYjZzmMs85rOAhSxiMUtYyjKWs4KVrGI1a1jLOtazga/4mo18wyY2
s4WtbGM7O9jJt3zH9+xiN3vYyz5+4Ef2c4CDHOIwRzjKMY5zgpOc4id+5jRn
+IVfOctv/M4fnOM8F7jIJf7kLy5zhatc4zp/c4Ob3OIfbnOHu9zjPg94yCP+
5T/+5zFPeMoznvOCl7ziNW94S8z4A4lFbOIQl3gEEZ9gEpCQRCQmCUlJRnJS
kJJUhJCaNKQlHenJQEYykZksZCWUbGQnBznJRRjh5CaCSPKQl3zkpwAFKURh
ilCUYhSnBCUpRWnKUJZyRFGeClSkEtFUpgpVqUZ1alCTWtSmDnUD3//Pd2Vr
jn4=
         "]], LineBox[CompressedData["
1:eJwl1UOwGIgWRdEX2+7YdtKxbdu2bdu2bdu2bdvojpO/uv5gVd3ZHZ3aCRu2
q9g2UEBAQNYgAQEVHBWpRGWqUJVqVKcGNalFbepQl3rUpwENaURjmtCUZjSn
BS1pRWva8N/zdrSnAx3pRGe60JVudKcHPelFb/rQl370ZwADGcRghjCUYQxn
BCMZxWjGMJZxjGcCE5nEZKYwlWlMZwYzmcVs5jCXecxnAQtZxGKWsJRlLGcF
K1nFatawlnWsZwMb2cRmtrCVbWxnBzvZxW72sJd97OcABznEYY5wlGMc5wQn
OcVpznCWc5znAhe5xGWucJVrXOcGN7nFbe5wl3vc5wEPecRjnvCUZzznBS95
xWve8JZ3vOcDH/nEZ/7hX77wlW985wc/+cVv/hAQOCAgEIEJQlCCEZwQhCQU
oQlDWMIRnghEJBKRiUJUohGdGMQkFn8RmzjEJR7xSUBCEpGYJCQlGclJQUpS
kZo0pCUd6clARjKRmSxk5W+ykZ0c5CQXuclDXvKRnwIUpBCFKUJRilGcEpSk
FKUpQ1nKUZ4KVKQSlalCVapRnRrUpBa1qUNd6lGfBjSkEY1pQlOa0ZwWtKQV
rWlDW9rRng50pBOd6UJXutGdHvSkF73pQ1/60Z8BDGQQgxnCUIYxnBGMZBSj
GcNYxjGeCUxkEpOZwlSmMZ0ZzGQWs5nDXOYxnwUsZBGLWcJSlrGcFaxkFatZ
w1rWsZ4NbGQTm9nCVraxnR3sZBe72cNe9rGfAxzkEIc5wlGOcZwTnOQUpznD
Wc5xngtc5BKXucJVrnGdG9zkFre5w13ucZ8HPOQRj3nCU57xnBe85BWvecNb
3vGeD3zkE5/5h3/5wle+8Z0f/OQXv/lDgH4FIjBBCEowghOCkIQiNGEISzjC
E4GIRCIyUYhKNKITg5jE4i9iE4e4xCM+CUhIIhKThKQkIzkpSEkqUpOGtKQj
PRnISCYykyXI/5v8N9nITg5ykovc5CEv+chPAQpSiMIUoSjFKE4JSlKK0pSh
LOUo/1//qUglKlOFqlSjOjWoSS1qU4e61KM+DWhIIxrThKY0ozktaEkrWtOG
trSjPR3oSCc604WudKM7PehJL3rTh770oz8DGMggBjOEoQxjOCMYyShGM4ax
jGM8E5jIJCYzhalMYzozmMksZjOHucxjPgtYyCIWs4SlLGM5K1jJKlazhrWs
Yz0b2MgmNrOFrWxjOzvYyS52s4e97GM/BzjIIQ5zhKMc4zgnOMkpTnOGs5zj
PBe4yCUuc4WrXOM6N7jJLW5zh7vc4z4PeMgjHvOEpzzjOS94ySte84a3vOM9
H/jIJz7zD//yha984zs/+MkvfvOHgKD2T2CCEJRgBCcEIQlFaMIQlnCEJwIR
iURkohCVaEQnBjGJxV/EJg5xiUd8EpCQRCQmCUlJRnJSkJJUpCYNaUlHejKQ
kUxkJgtZ+ZtsZCcHOclFbvKQl3zkpwAFKURhilCUYhSnBCUpRWnKUJZylKcC
FalEZapQlWpUpwY1qUVt6lCXetSnAQ1pRGOa0JRmNKcFLWlFa9rQlna0pwMd
6URnutCVbnSnBz3pRW/60Jd+9GcAAxnEYIbwP3Ognmk=
         "]]},
       RowBox[{
         RowBox[{
           RowBox[{"3", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
                RowBox[{"-", 
                  SuperscriptBox["x", "2"]}], "-", 
                SuperscriptBox["y", "2"]}]], " ", 
             SuperscriptBox["x", "2"]}], "-", 
           RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
                RowBox[{"-", 
                  SuperscriptBox["x", "2"]}], "-", 
                SuperscriptBox["y", "2"]}]], " ", "x", " ", 
             RowBox[{"(", 
               RowBox[{
                 SuperscriptBox["x", "3"], "+", 
                 SuperscriptBox["y", "2"]}], ")"}]}]}], "\[Equal]", "0"}]],
      Annotation[#, (3 
          E^(-$CellContext`x^2 - $CellContext`y^2)) $CellContext`x^2 - ((2 
          E^(-$CellContext`x^2 - $CellContext`y^2)) $CellContext`x) \
($CellContext`x^3 + $CellContext`y^2) == 0, "Tooltip"]& ]}], 
   GraphicsComplexBox[CompressedData["
1:eJxt2XlcT9n/B/ArjexbloQsk6Ux1hSjq3eUpQyyZy2EzEhkS5KEKCZLSZZv
[encoded data, 9780 characters]
9ZPPVaj8sspv1ojTeb/GZn4d8X/1v90J
    "], {{}, {}, 
     TagBox[
      TooltipBox[
       {RGBColor[0, 1, 0], Thickness[Large], LineBox[CompressedData["
1:eJwl1Gl4CAQcBvCNmd3mmhnD3McOGzZ2uc1tm6soQlFhUxIq0eEoR3d0OMpZ
dB+OclTOSIkOSqEDIXcUqt8eH37v//v7PO8/YWhxYVFgQEDADaLklqI0QZQh
mLKEEEoY4UQQSRTliKY8FahIJSoTQxViqUoc1ahOPDWoSS0SqE0d6lKP+jSg
IY1oTBMSSSKZFJqSShrNaE4L0smgJa3IJItscsilNW1oSzva04GOdCKPznSh
K93oTg960ot8CiikN33oSz/6l/TLjQxgIDdxM4MYzC0MYSjDuJXbGM4IbucO
7mQkoxhNEcWM4S7uZiz3MI57Gc8EJnIf9/MAk3iQyUzhIR7mER5lKtOYzgwe
43FmMovZzOEJnuQpnuYZnuU5nmcu83iBF3mJl5nPAhayiFd4lcUsYSnLWM4K
XuN1VrKKN3iTt3ibd3iX93ifD/iQ1axhLev4iI9ZzwY2solP+JTP2MwWtrKN
7ezgc3ayiy/YzZd8xR6+Zi/7+IZv+Y7v2c8BfuBHDvITP3OIwxzhF37lN37n
KMc4zh+c4CSn+JPTnOEs5zjPBS7yF5e4zN/8wxWuco1/+Y+S8QdSitIEUYZg
yhJCKGGEE0EkUZQjmvJUoCKVqEwMVYilKnFUozrx1KAmtUigNnWoSz3q04CG
NKIxTUgkiWRSaEoqaTSjOS1IJ4OWtCKTLLLJIZfWtKEt7WhPBzrSiTw604Wu
dKM7PehJL/IpoJDe9KEv/egfeP2//g+QwZEy
         "]], LineBox[CompressedData["
1:eJwl00N4HggABNA/SW1bqW1ba3dZt6lt27Zt27Zt27a9b789vDnOaSY0rEm5
xkGBQOChKE8FKlKJylShKtWoThg1qEktalOHutSjPg1oSCP+K29CU5rRnBa0
pBWtaUNb2tGeDnSkE53pQle60Z0e9KQXvelDX/rRnwEMZBCDGcJQhjGcEYxk
FKMZw1jGMZ4JTGQSk5nCVKYxnRnMZBazmcNc5jGfBSxkEYtZwlKWsZwVrGQV
q1nDWtaxng1sZBOb2cJWtrGdHexkF7vZw172sZ8DHOQQhznCUY5xnBOc5BSn
OcNZznGeC1zkEpe5wlWucZ0b3OQWt7nDXe5xnwdB/+/pEY95wlOe8ZwXvOQV
r3nDW97xng985BOf+UIgOBAIIpgQwhGeCEQkEpGJQlSiEZ0YxCQWsYlDXOIR
nwQkJBGJSUJSkpGcFKQkFaGkJg1pSUd6MpCRTGQmC1nJRnZykJNc5CYPeclH
fgpQkEIUpghFKUZxSlCSUpSmDGX5iq/5hm/5ju/5gR/5iZ/5hV/5jXL8zh/8
yV/8zT+UpwIVqURlqlCValQnjBrUpBa1qUNd6lGfBjSkEY1pQlOa0ZwWtKQV
rWlDW9rRng50pBOd6UJXutGdHvSkF73pQ1/60Z8BDGQQgxnCUIYxnBGMZBSj
GcNYxjGeCUxkEpOZwlSmMZ0ZzGQWs5nDXOYxnwUsZBGLWcJSlrGcFaxkFatZ
w1rWsZ4NbGQTm9nCVraxnR3sZBe72cNe9rGfAxzkEIc5wlGOcZwTnOQUpznD
Wc5xngtc5BKXucJVrnGdG9zkFre5w13ucZ8HPOQRj3nCU57xnBe85BWvecNb
3vGeD3zkE5/5QiDE/wkmhHCEJwIRiURkohCVaEQnBjGJRWziEJd4xCcBCUlE
YpKQlGQkJwUpSUUoqUlDWtKRngxkJBOZyUJWspGdHOQkF7nJQ17ykZ8CFKQQ
hSlCUYpRnBKUpBSlKUNZ/gUgsv71
         "]]},
       RowBox[{
         RowBox[{
           RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
                RowBox[{"-", 
                  SuperscriptBox["x", "2"]}], "-", 
                SuperscriptBox["y", "2"]}]], " ", "y"}], "-", 
           RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
                RowBox[{"-", 
                  SuperscriptBox["x", "2"]}], "-", 
                SuperscriptBox["y", "2"]}]], " ", "y", " ", 
             RowBox[{"(", 
               RowBox[{
                 SuperscriptBox["x", "3"], "+", 
                 SuperscriptBox["y", "2"]}], ")"}]}]}], "\[Equal]", "0"}]],
      Annotation[#, (2 
          E^(-$CellContext`x^2 - $CellContext`y^2)) $CellContext`y - ((2 
          E^(-$CellContext`x^2 - $CellContext`y^2)) $CellContext`y) \
($CellContext`x^3 + $CellContext`y^2) == 0, "Tooltip"]& ]}], 
   {PointSize[0.02], 
    PointBox[{{-2.41706981359718*^-27, 1.}, {
     8.472899309739819*^-9, -6.688871304346933*^-198}, {0.6666666666666666, 
     0.8388704928078611}, {1.2247448713915892`, -8.639927347510516*^-21}, {
     0.6666666666666666, -0.8388704928078611}, {-9.46462736948359*^-16, -1.}, \
{-1.224744871391589, -1.1471159789126392`*^-20}}]}},
  AspectRatio->1,
  DisplayFunction->Identity,
  Frame->True,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic},
  PlotRange->{{-2, 2}, {-2, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.671607546216447*^9, 3.6716075583666706`*^9}, {
   3.6716083613986173`*^9, 3.671608425633356*^9}, 3.6716098885652866`*^9, 
   3.6716138588386903`*^9, 3.671702842645488*^9, 3.671707368753092*^9, 
   3.6717074172842674`*^9, 3.671707485697233*^9, 3.6717080800213003`*^9, 
   3.6717081122639647`*^9},
 TextAlignment->Center]
}, {2}]],

Cell[BoxData[
 RowBox[{
  StyleBox["\[IndentingNewLine]",
   FontFamily->"Courier New",
   FontSize->16], 
  StyleBox["\[IndentingNewLine]",
   FontFamily->"Courier New",
   FontSize->16], 
  RowBox[{
   StyleBox[
    RowBox[{
     StyleBox["Ahhoz",
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[",",
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[
      RowBox[{"hogy", " ", "eld\[ODoubleDot]nthess\[UDoubleDot]k"}],
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[",",
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[
      RowBox[{
       RowBox[{
       "a", " ", "kapott", " ", "stacion\[AAcute]rius", " ", "pontok", " ", 
        "val\[OAcute]ban", " ", 
        "sz\[EAcute]ls\[ODoubleAcute]\[EAcute]rt\[EAcute]kek"}], "-", "e"}],
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[",",
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[
      RowBox[{
       RowBox[{
       "sz\[UDoubleDot]ks\[EAcute]g\[UDoubleDot]nk", " ", "van", " ", "a", 
        " ", "Hesse"}], "-", "m\[AAcute]trixra"}],
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[",",
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[
      RowBox[{
       RowBox[{
       "mely", " ", "a", " ", "f\[UDoubleDot]ggv\[EAcute]ny", " ", 
        "m\[AAcute]sodrend\[UDoubleAcute]", " ", "parci\[AAcute]lis", " ", 
        "deriv\[AAcute]ltjaib\[OAcute]l", " ", 
        RowBox[{
        "\[AAcute]ll", ":", "\[IndentingNewLine]", "\[IndentingNewLine]", 
         "H"}]}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", GridBox[{
             {
              SubsuperscriptBox["f", "xx", "''"], 
              SubsuperscriptBox["f", "xy", "''"]},
             {
              SubsuperscriptBox["f", "yx", "''"], 
              SubsuperscriptBox["f", "yy", "''"]}
            }], ")"}], ".", "\[IndentingNewLine]", "Amennyiben"}], " ", "a", 
         " ", "kapott", " ", "pontokat", " ", "behelyettes\[IAcute]tve", " ", 
         "H"}], "-", "ba"}]}],
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[",",
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[" ",
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[
      RowBox[{"H", ">", "0"}],
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[",",
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[" ",
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[
      RowBox[{
      "akkor", " ", "a", " ", "f\[UDoubleDot]ggv\[EAcute]nynek", " ", 
       "sz\[EAcute]ls\[ODoubleAcute]\[EAcute]rt\[EAcute]ke", " ", "van", " ", 
       "a", " ", "pontban"}],
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[",",
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[" ",
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[
      RowBox[{
       RowBox[{"ha", " ", "H"}], "<", "0"}],
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[",",
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[" ",
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[
      RowBox[{
      "akkor", " ", "a", " ", "vizsg\[AAcute]lt", " ", "pont", " ", 
       "nyeregpont"}],
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[",",
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[" ",
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox["illetve",
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[",",
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[" ",
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[
      RowBox[{
       RowBox[{"ha", " ", "H"}], "=", "0"}],
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[",",
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[" ",
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[
      RowBox[{"akkor", " ", "tov\[AAcute]bbi", " ", "vizsg\[AAcute]lat", " ", 
       RowBox[{
       "sz\[UDoubleDot]ks\[EAcute]ges", ".", "\[IndentingNewLine]", 
        "Tov\[AAcute]bb\[AAcute]"}]}],
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[",",
      FontFamily->"Courier New",
      FontSize->16], 
     StyleBox[" ",
      FontFamily->"Courier New",
      FontSize->16], 
     RowBox[{
      StyleBox[
       RowBox[{"ha", " ", "H"}],
       FontFamily->"Courier New",
       FontSize->16], 
      StyleBox[">",
       FontFamily->"Courier New",
       FontSize->16], 
      RowBox[{
       StyleBox["0",
        FontFamily->"Courier New",
        FontSize->16], 
       StyleBox[" ",
        FontFamily->"Courier New",
        FontSize->16], 
       StyleBox["\[EAcute]s",
        FontFamily->"Courier New",
        FontSize->16], 
       StyleBox[" ",
        FontFamily->"Courier New",
        FontSize->16], 
       SubsuperscriptBox["f", "xx", "''"], " ", "szint\[EAcute]n"}], " ", ">",
       "0"}], ",", " ", 
     RowBox[{
     "akkor", " ", "a", " ", "f\[UDoubleDot]ggv\[EAcute]nynek", " ", "a", " ",
       "pontban", " ", "lok\[AAcute]lis", " ", "minimuma", " ", "van"}], ",", 
     " ", "illetve", ",", " ", 
     RowBox[{
      RowBox[{"ha", " ", 
       SubsuperscriptBox["f", "xx", "''"]}], "<", "0"}], ",", " ", 
     RowBox[{"lok\[AAcute]lis", " ", 
      RowBox[{
      "maximuma", ".", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       "Ebben"}], " ", "a", " ", "p\[EAcute]ld\[AAcute]ban"}], ",", " ", 
     RowBox[{
      RowBox[{
      "az", " ", "\[AAcute]br\[AAcute]k", " ", 
       "szeml\[EAcute]letess\[EAcute]ge", " ", "r\[EAcute]v\[EAcute]n", " ", 
       "eltekint\[UDoubleDot]nk", " ", "a", " ", "Hesse"}], "-", 
      RowBox[{
      "m\[AAcute]trix", " ", "vizsg\[AAcute]lt\[AAcute]t\[OAcute]l"}]}], ",", 
     " ", 
     RowBox[{"hiszen", " ", "j\[OAcute]l", " ", "l\[AAcute]that\[OAcute]"}], 
     ",", " ", 
     RowBox[{
     "hogy", " ", "a", " ", "feket\[EAcute]vel", " ", "jel\[ODoubleDot]lt", 
      " ", "pontok", " ", 
      "sz\[EAcute]ls\[ODoubleAcute]\[EAcute]rt\[EAcute]kek"}], ",", " ", 
     RowBox[{"a", "  ", "pirosak", " ", "ellenben", " ", 
      RowBox[{"nyeregpontok", "."}]}]}],
    FontFamily->"Courier New",
    FontSize->16], "\[IndentingNewLine]"}]}]], "Text",
 CellChangeTimes->{{3.671727646581256*^9, 3.671728158352517*^9}, {
  3.6717284547270145`*^9, 3.6717284939739075`*^9}, {3.6717291381917315`*^9, 
  3.6717291400381393`*^9}, {3.671729620061226*^9, 3.671729623065381*^9}},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Show", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot3D", "[", 
     RowBox[{
      RowBox[{"m", "[", 
       RowBox[{"x", ",", "y"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", 
        RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<x\>\"", ",", "\"\<y\>\"", ",", "\"\<z\>\""}], "}"}]}], 
      ",", 
      RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
      RowBox[{"ColorFunction", "\[Rule]", 
       RowBox[{"Function", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", " ", 
         RowBox[{
          RowBox[{"ColorData", "[", "\"\<Rainbow\>\"", "]"}], "[", "z", 
          "]"}]}], "]"}]}], ",", 
      RowBox[{"MeshFunctions", "\[Rule]", 
       RowBox[{"Function", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", " ", "z"}], "]"}]}], 
      ",", 
      RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", " ", 
      RowBox[{"PlotPoints", "\[Rule]", "70"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Graphics3D", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"pontok", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"pontok", "[", 
           RowBox[{"[", "4", "]"}], "]"}], ",", " ", 
          RowBox[{"pontok", "[", 
           RowBox[{"[", "6", "]"}], "]"}], ",", " ", 
          RowBox[{"pontok", "[", 
           RowBox[{"[", "7", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], "]"}], 
    ",", 
    RowBox[{"Graphics3D", "[", 
     RowBox[{"{", 
      RowBox[{"Red", ",", 
       RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"pontok", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
          RowBox[{"pontok", "[", 
           RowBox[{"[", "3", "]"}], "]"}], ",", " ", 
          RowBox[{"pontok", "[", 
           RowBox[{"[", "5", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], "]"}]}], 
   "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.6716063997097096`*^9, 3.671606484703721*^9}, {
  3.6716065322875867`*^9, 3.671606580583394*^9}, {3.6716068922044163`*^9, 
  3.67160691150296*^9}, {3.6716069553767877`*^9, 3.6716070068719296`*^9}, {
  3.671607193272646*^9, 3.6716073541803255`*^9}, {3.671728175327573*^9, 
  3.671728329859397*^9}, {3.671728377452096*^9, 3.671728421699542*^9}}],

Cell[BoxData[
 Graphics3DBox[{GraphicsComplex3DBox[CompressedData["
1:eJxc3Xdcju3j/3GUvbeM7pCR7JUd2SFkk+wtIyMqo1JWJSlF2lORdtq7tHfJ
[encoded data, 84000 characters]
Ie/03Fs5TXLQ9071Xo/j/AuT7QdA
    "], {{
      {RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[
        GrayLevel[1], 3], 
       StyleBox[GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJxMnXfclfP/x8997nnWfe5zHyujZI+ESF8jyqahiCgtklJaKkWys7I1ZGVn
[encoded data, 40260 characters]
jg/PhIcE6wjmkX37WJsp1vbHoPyot2bKy0eOKnCn/weWtXMW
           "]], Polygon3DBox[CompressedData["
1:eJw1nXW8VNXXh+feuTM3Ju+MgGKCYncXYiAgYaAY2B1gYSGCKIiBHdiJYoKo
[encoded data, 27960 characters]

           "]], Polygon3DBox[CompressedData["
1:eJwtlVdwzmkUxl/xfV+U/P87YnYGs0GM3rsLRmeVQYSEhGWV4ULvokdCsIM7
NavLjBuMFr3N2FVWixLcMQlGWS70Fr9n3nPxzHPeU952znve5LHTUqfGOefG
gyiIhc4NiTlXHh6XiB50C5xbibEzfKiKc4dBI+zL8KsPL8cnB/TAnodfV/gI
PkdBE+zZ+DWEc/FZAVog56BrCq9ivBpURE5DFw9PYDwRNEBeiq6u1mKcDXox
9yrW6A4fY/5CkIZ+KLiErgb+H+AIManI5eAx2MaCuejPEjsLfkzcExCHfTB+
ZehG4/MnaIcuD11reB3j9eB37KuJ7QkfJ+4EaKaz49cYXolPHpiKvRC/SfBD
fB6BVjo7fs3hNfj8BRYhl6DLgm8wvgn6ErOG2N7wSeJO2R611/7o1mKbA5cy
LgEDkNejmw/fAcnMdwtuz1wdEv3a2kMXy9+UwOdOOUxCTrNcvcT3BVhge9oc
+v1oX6nIh9EthBcQlwVKE5x7H+FuiS3G5z5Ix16IXw58m/EtMAT5CLrF8HV8
ayJfhVtiawWuIP+G7h+4KeNm4B64C9KIOYYtW3vBXgv5P7g1tjbgAXI9dPfh
jow7gTugSLVAzFFsS7UX7LWRb8BtlVuQACqD2VYPu+GQcWA1cg7dXriS6hLM
RD6Dbmfg19YediD/H/Xzam3tYR/yO3TFgV9H6+1CfhP1eVnOfp7Zvu7aWZch
P7U7KrIzLEEutTvXPeo+c5Gf233ovostx8r1HuZ+yxpFgb9D3eUW5RXdZXgL
Mb/GO7cx9HlWviuAeDAD+2n8tuvNMC4Ppqn+0G2FY4yjYDryKXR/wxeZpx/z
nYPDqs79As4j90V3Bk5gHFT19as6TiYmg9g+gc+78r8N+XXU59QxLsNvsr2d
jXAWOI88L/C1rpq/hpwU82dqrj6S6HuMek1NdOnWF3ZZbnQm5U95jEOuj64s
wdewanmP5UZ5rWx1obepNxqxPtgy9L1IPekefnXRVQh9X1R/1Lurgy4a+j6m
fhZnvUfv3alOWeM7685jzfngAD77VcfWZzLgAsZ7QT3reSmh91VMCbHvIn7v
meiPYx8W+jk0V4HlX3WsGg6tZ62zvpqOf1vtBaQgf8fvD2yjwA/kQei+wiMY
jwSD8TuIblDo91Rg/VN99Lb1Gf0PwxkPA//aO/4MZzLOsLedZPOqFlQTW4mp
ZnWjmlHt5CNXR3ch9P1TfdRZT9b/8IX4AcifAr+W1vyI3B/d+8D3ffV//QP6
D2rJz/r0NzDQ9qU9Zdr/k2vnTrHerb9Lf9g3uwv9VZuQnzPPhsDXprO70R1d
s16me8y3d7Y58G8nYrX9yt6P3k7M/hX9LzetH+lf0v0rD9etv+kP0r+i/6U2
8nD7C/Tv6f/7YufRn7vD3o/eY7y9Z70HvYt8W1+99idlFQ5J
           "]]}],
        Lighting->"Neutral"]}, {}, {}, {}, {}}, {
      {GrayLevel[0], Line3DBox[CompressedData["
1:eJwl0zdMVlEYBuBPsIAFbFjAAjYsCNZFF11w0QUXXWyxLJZEF1100UUXK2AD
C9gVUAELWMAYxYYxYoMFFh0sgyyWxOePw5P33D/33OS85/tz1mwp2twjIrr4
kBqRWL+Vj5ltvY4SnvKb6V5YyQGa6SY3KWI53X0j9slGvpOTHLGU6n4Re2Q9
X8jqGbGEXdTQRUaviEXs4DIdpPeO+DogYqHcRiXvSO0TUZsWMV9uopzXJKdE
zGUDR3nGXwqcZTUtfOIQ73jFYY5QTAmlvEm3Xx7jOCc4SRnlnOI0ZzhLBW32
VMpznOcCF7nEZa5wlWtUUU0N17nBe/tvylrqqOcWt7nDXRpo5B73ecBDmmjm
Oe08SnyPVg6yinz+6KKFUtYzhyRadVfGD51ulPNIoU3XFRT6fatcQBrt7uYS
2ylkKJ3usJqdLCaTz+66jt1UmYEimc03s9HAXn6amWVyUmJtlprYzwry+GXm
nlDM2sTaOT4yy7pNvmSm9QwKyE/MKHlMYypTmEwuk5jIBMYzLjH7vpEjsxnL
GEYziiwyGckIhjOMDIYyhE77B8tBDMRVhsrC6EZ/HD0cM7wW6g7VRocHVYbq
QlWhllBBvEj9/z/8B+zWdug=
        "],
        VertexColors->None]}, 
      {GrayLevel[0.2], Line3DBox[CompressedData["
1:eJwN0TtrE2AYhuFXSE9pta1dPSAmDp466A+w4GAqOCgiOBi0dTUFXdrUdrFi
topTAg6mdCh42JxMlgQnTQIuikaaLTUVwcl2qL2Gm+t7n/U7cS93/cGBiCio
PRTxfTTiJ7va0m/3LgeSEYNKjEUc5XlN6rj7Cmd1XwvK65r9JSuq6ofaWrTv
8chwxDFN6bLW7TNc1QvV9FF/9FcnRyJO6aZu6YlW9Fpv9EmZ8YjPbOiud5fL
7D8YscQEH7OPJaZYZJpVTrPCq+zwITf5iMOHI14xyTIvssELbDLL/7zDOBTx
lKe5wjPc4A22mGeTi9xmkT2WmJyI+MA0vzLFb5ziDi9xl7c54W/meJY5nmOB
GT7jNEvM8h3n+ZYLrPM5WyyzyTV2+J491viLdf7jF+4D83FRug==
        "],
        VertexColors->None], Line3DBox[CompressedData["
1:eJwV0TtIFWAYx+H3CF2OHrPbnJfQGlJ0qKUtIYgupoSELibSVuFQDqbYktfJ
aDrlojQ0VJsu5SVPtOkRdYi8HVsqSoIIQkEfhx8Pf174lq+09UHD/UREvFQu
GbFaFLHBFa7xK9eZ4w9u8Ce3uM3f3OE/JvMjDh6NOMUDLGYRq1nCK6zhXV7k
Y9ZxhJOa0j17lbtKFET077/DWl3WK7uNw3qujD7rj/6qPBVxVo3KPxZxm016
qmK7lyXsYyn7WcYBnuYgh/RGbzWnebW6fecTHiqM6OFhvmAF0zzDDBs4y3p+
5E3OsI7TvMEpXuMkr/MbO7jJh8zxEQuPR4wyxTFe4DzPM8s7TByJaGEe+3iO
vazka97iAruYZTd/Mc3UiYj3LOAHVvALa7nNS9xhM0/643ZWcYBXmWYL37GT
w3qmrD3GcU0oo09a1H+3JS5rD6ZeXFw=
        "],
        VertexColors->None], 
       Line3DBox[{2531, 2532, 4063, 2533, 4064, 2534, 2535, 2551, 4076, 2552, 
        2553, 2564, 4085, 2565, 2566, 2586, 4099, 2587, 2588, 2604, 2605, 
        2630, 2631, 2657, 4144, 2658, 2659, 2680, 2681, 2711, 2712, 2740, 
        2741, 4201, 2774, 2804},
        VertexColors->None], Line3DBox[CompressedData["
1:eJwN0DksJGAUwPEnmhnHrqMUxYwtbEnrzFYkthGFzbqiREg0QjRCLVEZS0Kh
ENu6RyPR7dLs4SqUQiIRd4H4Ff/88l5e8eVL9Q61DuZExJge8iJGiiKO2ccj
9nOT37nBDm6xk9vs4g+2cI5fOc8F7ajbnOWuTjRgPuWZXvSqsvyIcjXqi5bd
9HJaM9rTvq51o1RBxCcliyPaOKFJreqnmux/sYcXHGduYUSGac6ygrtsYpbN
POcwkyURi0xwidX8zSoesJOv7OAbp1j5wRv4mSts5SFHecAxXnGWl8wwWeqP
mGCWFTximv+Y4n828Jn1fGQdn/iNJR8j2lnMB7t71ZrvWMNb/tUfrWld77Ve
SrQ=
        "],
        VertexColors->None], Line3DBox[CompressedData["
1:eJwV0klsTHEcwPF/jYRu09qCi7QuWhINISpx0yLqINaI2iriQBD70qpQB7tD
tRc0DrUeKC729qJUEW2dEIkuKKqL9WD5vMN3Pu/3ZjLz3ptfZtHGeRsSQgjj
vVxNDmGfbqaHsJiLNFmTNFRlzvclhdCrl2rRDV1XhU6pwGfKuUPbtVIrlOP8
cuYrT6PM0zlOYxU3Z3OkRqifeThj0bG+pYWQwD4G/kgM4bs+mb+xk338yF5+
YA/fs5sd/Mp2drGNn9nKL+zlP/bwD7v5l7+Z4vd+MYk/mcyBri+DA5jJdE7g
aM5mJgs4kWs5jSWcy6roubCOG/iWwfON6XD0vczXLF0wr2G5KlWvBvXpu8ak
OI6eHcdqiZIHhbCUKSxkKpcxzuVM4wqmcyVX6ZiO65pqNNt7L7iandzPxNQQ
zjKLZ5jNes7nQy7gZ5byE/eykyX8yGJ+4B6+5252cCfbuYvpg90z01jNOM8z
l02cwmauZiweQhH78zDH8xBzeIUL2cJSNnMfu3ia8SEhPGAqazmGr5jHPyzk
MP/1ZubwCOdwlYpUYy5muU6pWk3OnecF3dI7823eUX20b+ZH0b7xcbSHbIj2
kk+iPWVjtLd8Gu0xn0V7zefRnvMeW3mXbbzP9uhe2MEavuI1vuZ1vuFZNvAM
n7CKjTzGBzzKWh5nHbfyIrfwErfxMgtZwaWsZD4PMI9lnMGDzOY6ZnE907iQ
cS7iV884l12cyiZm8Ab7RdfNGE+y1X92gm3cxIecyXOcwf/jPbVj
        "],
        VertexColors->None], Line3DBox[CompressedData["
1:eJwN0DcvBGAYwPGXaNGiRI1EzsDIdDY2ZVMWZRA+ACESdwxCogwS0W5zNmKz
qIuERe58BpuSKKN2Br/hn1+evM/w5I1MTA1MZoUQZnVSFMJtWQhLPOUwkxzi
Adu5yyj3WM0VVnGVNVzjV2EIMX4yzm/O84cL/GVGtfbXzXWsV4c6NaZxbWhT
17rRqz7UWBxCkwrKQxjkopYVNR/zTimNmZ+4wKwSNzCbCUZ4xS5espsPnGZ+
RQj7zGOSbUyxlWmOMsMR/nGZzaX+jS08Yh8P2c97zjHNGF+Y4DN3+cQ95le6
hXm8YC7PmcMz7mhbj/a3OKNp9apHDYp7e3PTu/4BUxZCtg==
        "],
        VertexColors->None], 
       Line3DBox[{3824, 4922, 3825, 4951, 3856, 4974, 3882, 4973, 3883, 4999, 
        3911, 4998, 3912, 5017, 3933, 5016, 3934, 5037, 3960, 5036, 3958, 
        5035, 3959, 5059, 3983, 5058, 3984, 5070, 4000, 5069, 4001, 5088, 
        4021, 5087, 4019, 5086, 4020, 5097, 4034, 5096, 4032, 5095, 4033, 
        5111, 4050, 5110, 4048, 5109, 4049, 5117, 4058, 5116, 4057, 5115, 
        4055, 5114, 4056},
        VertexColors->None], Line3DBox[CompressedData["
1:eJwl1FdsjWEAx+G3YkT1aHsOJbGCahuj2hKCGDUiMRI7sS5QgkSLkLhRyg3a
2HuEG7R0qFslIYpGJEZbOxFXkpqJVftpXPzOk/93ztX3fe/pvbRgVn5cCGGE
jx+JIXSMD6FDUgipjGcftmdfRpnDZA5hKqexL6dzCFdyDAs5mls4k2e4hDdY
wFds1SGE1iq2e3OypqjUXsHDOqo63XPtbov6qpf2NzZrQEIIn+2B/MJB/MpM
fuNgfmcWm5nNHC3VMu3RXg1PDuEyp/Ih89jE7YyPhHCa/VnHubzDeXzPrXzH
InaNhlDFLqxkCivYmeXsxIuM8QKjLGUyyziKjRzJeo5gA1ewXccQlrMN89iW
JcxiMbNZznlsZBEbuI0feIpJsRCuM5E3mMEXnMQ/XMwU70KWslViT+cy5Wmz
CnVYtb47wqMq1SO7jPW8wAZeZCPL+ZgVfMJKPmUVn/E4b/EYb/ME7/Ak67iT
V7iDNdzFqyzmNa7jWa7lOa7neS7gQc7nIY7nVuayiBO4jWlcyX5cxXSuZoSz
mcA5fOceDeNbDucD9uR99mI1Ay8xjrv52r0v4E3ms5aTeJoTeYbduIlNnvUM
XmMarzKdJWz2ji1hPYeyjDGW8LN3dQ2fcw5rOJYn2J/57MJcjlNEb1rOojP0
mJWs0BYVaq5OtZx15iimqD45ux/1SA9VrUta4LdVPKD9mmLv40Zt0GItUqbr
Czleuephj2N3jmWG0hWx05jAfkxRZ8XZnRgY41/PJco/TOZvJvEXE/mTkfj/
/2//ADXYpl0=
        "],
        VertexColors->None], Line3DBox[CompressedData["
1:eJwl1FtMzmEcwPGnCxsVqRDhQsTMbKgcQuUwm7EiprjAGiWT44UbORUuUsRV
TnO6sFEOOXOlO6PQ5pBDwo0YNjdGyuedi+/72e95//vved//874jijblb4wK
IYzwktg/hIzoEMZwEUczl6nMYwZLmc71zOZu5vMMi9jEzexgOXvFhHCQKZyv
BSpRqep0XI/U7JpmtuiX3pl/s51/+J5d7OBffmA3P7KHnxhiQ4hSmtK1Rms1
Kj6EWk5lIxeyNfIev7KSMX1DOM1xfMgC/uBefmcFkxNCuMIhvMq5bOccvuNs
vuUsvmEOXzObbcziK87kC87gS5Yyul8I69ibJezDGk5iNdPYwALWs5AvWcEX
rOQPnmJ8oufAsXzLeezhSibFhbCNk5irPK3VCWvFLNEuXTPvZiP38Dr38gYr
eJOVvMV9vM39vMMDvMuNPMsynuMmnmcBa7mMR1jIo8xmObO4kzmRvXBkZI9M
YTFHRfbJaC5iHy5mDPP5xWdNZycz2MyhfMxhbOFwXma376yBPaxmB8v4gBvY
xDk8ydk8xWRuZ6dnl8vPzON9prKKv5yZ1XzGVWxlGi8wgVX86extYBuX8B6z
eIx1KtMgcza7nO9YxqjdeX9uvsSLKtcOLdUJ6xM5QfHqrwprcfzuN/lNT/VE
66y3sEH1Wh65Jw/rkOaba7hNW5Vp3sIVkWs13lzILM3UUPMMJnM6hzCTgzmN
SZzKQZzCgZzMAUyP/v//8w9oc5u2
        "],
        VertexColors->None], Line3DBox[CompressedData["
1:eJwl1ElsTHEcwPE/kpKupiJpkdC0Eq2G6Ka1hYPloOi0pRwcSqpmqjjooRUJ
4UJLrRFUa0nEFoJTBa04aS2lFwfrRYUeuLiQ+Ewcvu8zvzd5+c+b95/Jqd8Z
bR4TQog4zJoYQjQ5hHLu4HzGWcYmLuN+LuUB1vAyq3mFW/iMu/mF+5iUEkKu
8nTOvJqNiiVmPXLuAh+zixf1Wq/MQ4nX7OETdrOPl9ifWJtPE2vzqt5oyPyW
wxqbGsI4lapMkUgIDZzJE6zgA1ZymA0c5SGmplmHhRxgHX/yIKdlhnCPU3mf
K/iJy/mZzYyk+w6ZwSZO5Bku5Gku4ClW8CTLma40xc0pjDGVJzifx1nGTpbw
GEt5lxt5h5v4jof4i938yR5mTvJ8WMAPXMmQEUKWslWsEq1Th/eqGFWjuszb
eZExdjPOHjbxEmt4lNU8xlp2chFbuZBtXMy9nMF6TucW5nArx7OSSVzDCVzL
EZ95Hr+yiN9YzAFm8TmzOcgpvM0/7v0W/7KdH3mEnxhnH2Ps5zKe51JeYDb3
MIstHPFsK/mQuexlHg/zt72xmUMs4jVGeJi/7Kk43zHKXi7mWeaziZO5JHFe
yfpqH3+wh9/rhq6rTa2qVlRzNUfpStMB16Ry1G/vh1rM3/lSL7TNPMibuqE6
83V2qF2rzEe4SztVYW7mBq1XobmWs1nDAlYzn1XJ//8//gGdjY0r
        "],
        VertexColors->None], Line3DBox[CompressedData["
1:eJwl01tMiGEYwPG3TTPlkLLakI2NCxQuyCFsTrVJZMNM6SByLDp35QKRzY02
OVw5lHIulXK8sjltzNZmCpszFzZsptz4mYv/fnue7+L7tvf9xheUrC6OCCH0
a1FMCPujQljLc1zDRhbyPkv5jns5ODqEI5zIFcrUDrXY7eQF7uJFFvMSS3iZ
u3mFe3iVpbzGMraynG2sYKUa1aTndj0cNDSESA2YUxg7MoQiTmI9O9SpTHMP
i/iNtRw2LISzTOIZJvMJ1/MHDzAxNoR2pvMt0/iOJYwdHsJxprKB83mbW3iL
m3mThezmJnaxgDeYz07msYO5bOdGXmcO27iBrcxmL2v5kgf5k6cZF+dcOIVv
mM6IESGM1hjNVLndLFYwhZWczSrOYTXnsoaJzOVY5nEc8xnJ5RzEDH7wrmS+
5zR+5HQ+ZDwfMIEt/O1bm9nPCxzgRf5hHft4iK94mK+5lXdYxLvcxntcyBNc
wJNMYBnjWc5PziiD3RzPLk749x7+crY5fMpsPuMMNjGGdfzujmznC2axm6ls
4DHt0ChzKudpiD66g33uZK+adV41qtZ1z6qYpVU6ZV7JJE1VvXkKj3IyoxWl
r/6xL6qw/8zHeqRmndc6+yYeVp3SzIe4jAe5lLVcwgNczH1R///vv+Z4its=

        "],
        VertexColors->None], 
       Line3DBox[{4197, 2759, 4212, 2788, 4211, 2789, 4224, 2824, 2854, 4238, 
        2855, 4239, 2856, 4240, 2857, 4241, 2825, 4225, 2791, 2790, 2761, 
        2760, 4198, 2758, 4197},
        VertexColors->None], Line3DBox[CompressedData["
1:eJwl0b8r53EcwPGXchkcIYOFqFNKbModVzosfl0p5Xdi54oTwzc6o76jO2Lw
s3QbAxYx+PX1FxgYDAYlJsMpx0OGZ49evfv0+bxfn5LBkfbhtIhI6HdOxOfM
iFX2coXdXGYPd/mLO5zhMbd4xG1e8Jq3zP4Y8Z/f+Mx6FuRGjLCcS6zjPjt4
yWE+Msn8rIi/rOKghvRkTrIsL+KA93pQYXZEkZq06qyZLRrVqXmMZ/zJFMd5
zjausZXr/M4NlnKKnzjNJ+/o5D92McUKnrGSS0znIj/wB698ayN32cA9FnOO
wQm+uOskb9jPFE+0qSrzNBNqV8bb8yzU3duOdah9JTWrAfVrzb77+FW1WjDX
cJ5f+IfVme//+xXRd0hc
        "],
        VertexColors->None], Line3DBox[CompressedData["
1:eJwl0asvBWAYwOEXm+JuY7OZ4xLRTHf5B9gcSTFFcSQ2l5PcA0Vhowqiyzjs
jMApqsAoCEahHIrLY8Jvz95vX/j2fk3Dqf6xgogY1VFlxHxJRI57vOQ+b/nA
Gz7ylRWlES+s5A97WVcVMc52brGN2+xilkneM8U8a8oiarVr7uQ1R7iqNZ3p
XG96V6I8Yqo6opHTbOIMmznLFqb54e4A80zyk4PMsZWXbOMmC7nBIqZ45w09
PGA3D5ngOr+9eYJfnOQTh5jjhXbUYU5zWn0qNjew/m9fdvesrE51ZW8Zrmj5
78y8xBMuMsMFHnOu5P9/fgGrKkEB
        "],
        VertexColors->None], Line3DBox[CompressedData["
1:eJwl0D0vgwEUhuHzziXRLoJE0rEGi8GqEmxSrcZikrAphg4Sv0GIod1sJpvv
GCRU4uMfqFgoCwsVSwdX0uHONZ6TJ7u0VqwkEVHWXV/EaSrimW9sssUvpnsi
Pplhko6YYnCag9zgKPc5ySsu8IXr/OM2+3sjDjnOZa1oR7u61o2+NZeJ+GGR
bZb4y3neMscGR1hnsMaEFT65scom8zziBI85zD12/FTlKxfZ4AwPOMYtbqqg
WQ1pQB82edelLvRol3M+8Iz3PEl19/wH4KE0ZQ==
        "],
        VertexColors->None], 
       Line3DBox[{4307, 3031, 4325, 3078, 4347, 3128, 4371, 3176, 4391, 3220, 
        4410, 3255, 4431, 3286, 4456, 3311, 4487, 3342, 4516, 3375, 4557, 
        3418, 4595, 3462, 4638, 3509, 4681, 3556, 3603, 4720, 3604, 4721, 
        3605, 4722, 3558, 4682, 3557, 4683, 3511, 4639, 3510, 4640, 3464, 
        4596, 3463, 4597, 3419, 4558, 3376, 4517, 3343, 4488, 3312, 4457, 
        3287, 4432, 3256, 4411, 3221, 4392, 3178, 3177, 3130, 3129, 3080, 
        3079, 3034, 3033, 4309, 3032, 4308, 3030, 4307},
        VertexColors->None], 
       Line3DBox[{4334, 3092, 4355, 3143, 4354, 3144, 4379, 3186, 4400, 3232, 
        4399, 3233, 4419, 3264, 4440, 3295, 4465, 3320, 3352, 3353, 4525, 
        3384, 3431, 3432, 3474, 4603, 3475, 4604, 3476, 4605, 3477, 4606, 
        3478, 4607, 3436, 4568, 3435, 4569, 3391, 4529, 3390, 4530, 3357, 
        4498, 3323, 4468, 3298, 4443, 3267, 4422, 3237, 4402, 3194, 3192, 
        3151, 3149, 3098, 3096, 4338, 3095, 4337, 3094, 4336, 3093, 4335, 
        3091, 4334},
        VertexColors->None], 
       Line3DBox[{4356, 3146, 4382, 3189, 4381, 3187, 4380, 3188, 4401, 3234, 
        4420, 3265, 4441, 3296, 4466, 3321, 4495, 3354, 3385, 4526, 3386, 
        3387, 3433, 4566, 3434, 4567, 3389, 4527, 3388, 4528, 3356, 4496, 
        3355, 4497, 3322, 4467, 3297, 4442, 3266, 4421, 3236, 3235, 3191, 
        3190, 3148, 3147, 4357, 3145, 4356},
        VertexColors->None], 
       Line3DBox[{4852, 3747, 4884, 3782, 3808, 3809, 3842, 4937, 3843, 4938, 
        3811, 4908, 3810, 4909, 3783, 4885, 3751, 3750, 4855, 3749, 4854, 
        3748, 4853, 3746, 4852},
        VertexColors->None]}, {}, {}}},
    VertexColors->CompressedData["
1:eJwUm3dYjX8YxinaKBklMkpREZJEudNWSlGiUoS2MgspChlNKg1p0JCR2d5p
[encoded data, 125700 characters]

     "],
    VertexNormals->CompressedData["
1:eJwUmnc4V+8bx41QVCqVSpFkVBRKKXRHGSFaZkXJiLSUZFZ2pGTvvffe3Pbe
[encoded data, 151260 characters]
Xv8PcMxc7w==
     "]], 
   {PointSize[Medium], 
    Point3DBox[{{-2.41706981359718*^-27, 1., 0.36787944117144233`}, {
     1.2247448713915892`, -8.639927347510516*^-21, 
     0.40991627894186006`}, {-9.46462736948359*^-16, -1., 
     0.36787944117144233`}, {-1.224744871391589, -1.1471159789126392`*^-20, \
-0.40991627894186006`}}]}, 
   {RGBColor[1, 0, 0], PointSize[Medium], 
    Point3DBox[{{8.472899309739809*^-9, -6.688871304346933*^-198, 
     6.0826963389109235`*^-25}, {0.6666666666666666, 0.8388704928078611, 
     0.31722367703207804`}, {0.6666666666666666, -0.8388704928078611, 
     0.31722367703207804`}}]}},
  AspectRatio->1,
  Axes->True,
  AxesLabel->{
    FormBox["\"x\"", TraditionalForm], 
    FormBox["\"y\"", TraditionalForm], 
    FormBox["\"z\"", TraditionalForm]},
  BoxRatios->{1, 1, 0.4},
  DisplayFunction->Identity,
  FaceGridsStyle->Automatic,
  ImageSize->Medium,
  Lighting->"Neutral",
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0.3]], "RotationControl" -> "Globe"},
  PlotRange->{{-2, 2}, {-2, 2}, {-0.40756859823305913`, 0.4082495382308515}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{-2.6755173993429486`, -0.17633166306136275`, 2.064101206437115},
  ViewVertical->{0., 0., 1.}]], "Output",
 CellChangeTimes->{
  3.671606487805953*^9, 3.671606534566206*^9, 3.6716065816361427`*^9, 
   3.671606913657493*^9, {3.671606989860965*^9, 3.6716070084960833`*^9}, 
   3.671607195818454*^9, {3.671607239367111*^9, 3.671607286094308*^9}, {
   3.6716073299279623`*^9, 3.671607356592039*^9}, 3.671607559221298*^9, 
   3.6716083765954123`*^9, 3.671608426470952*^9, 3.671609889626034*^9, 
   3.671611367476846*^9, 3.6716138601106186`*^9, 3.671702844098511*^9, 
   3.6717072132391815`*^9, 3.671707369437578*^9, {3.671728178276696*^9, 
   3.6717282476429663`*^9}, {3.671728309558976*^9, 3.6717283326523867`*^9}, 
   3.671728389672781*^9, 3.6717284231896286`*^9},
 TextAlignment->Center,ImageCache->GraphicsData["CompressedBitmap", "\<\
[encoded data, 181320 characters]
\
\>"]]
}, {2}]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
   "A", " ", "k\[ODoubleDot]vetkez\[ODoubleAcute]", " ", "k\[EAcute]t", " ", 
    "\[AAcute]br\[AAcute]ban", " ", "egy", " ", "maximumpontot"}], ",", 
   RowBox[{"egy", " ", "minimumpontot"}], ",", 
   RowBox[{
   "illetve", " ", "egy", " ", "nyeregpontot", " ", "lehet", " ", 
    "k\[ODoubleDot]zelebbr\[ODoubleAcute]l", " ", "is", " ", 
    "megn\[EAcute]zni"}], ",", 
   RowBox[{
   "mely", " ", "meger\[ODoubleAcute]s\[IAcute]t\[EAcute]st", " ", "ad", " ", 
    "a", " ", "sejt\[EAcute]s\[UDoubleDot]nk", " ", 
    "helyess\[EAcute]g\[EAcute]r\[ODoubleAcute]l"}], ",", 
   RowBox[{
   "illetve", " ", "seg\[IAcute]ts\[EAcute]g\[EAcute]vel", " ", 
    "k\[ODoubleDot]zelebbr\[ODoubleAcute]l", " ", "is", " ", 
    "megvizsg\[AAcute]lhatjuk", " ", "a", " ", "f\[UDoubleDot]ggv\[EAcute]ny",
     " ", "viselked\[EAcute]s\[EAcute]t", " ", "az", " ", "eml\[IAcute]tett", 
    " ", 
    RowBox[{
    "helyeken", ".", "\[IndentingNewLine]", 
     "\[IndentingNewLine]"}]}]}]}]], "Text",
 CellChangeTimes->{{3.6717285073203974`*^9, 3.6717286933795195`*^9}, 
   3.6717296760620184`*^9},
 TextAlignment->Center,
 FontFamily->"Courier New",
 FontSize->16],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Labeled", "[", 
    RowBox[{
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Plot3D", "[", 
        RowBox[{
         RowBox[{"m", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", 
           RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", 
           RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<x\>\"", ",", "\"\<y\>\"", ",", "\"\<z\>\""}], "}"}]}],
          ",", 
         RowBox[{"Axes", "\[Rule]", "False"}], ",", 
         RowBox[{"Background", "\[Rule]", 
          RowBox[{"Lighter", "[", 
           RowBox[{"Gray", ",", " ", "0.5"}], "]"}]}], ",", 
         RowBox[{"BoxRatios", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"1", ",", "1", ",", "1.5"}], "}"}]}], ",", 
         RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
         RowBox[{"SphericalRegion", "\[Rule]", "True"}], ",", 
         RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quality\>\""}], ",", 
         RowBox[{"ColorFunction", "\[Rule]", 
          RowBox[{"Function", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", " ", 
            RowBox[{
             RowBox[{"ColorData", "[", "\"\<Rainbow\>\"", "]"}], "[", "z", 
             "]"}]}], "]"}]}], ",", 
         RowBox[{"MeshFunctions", "\[Rule]", 
          RowBox[{"Function", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", " ", "z"}], 
           "]"}]}], ",", 
         RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"pontok", "[", 
                RowBox[{"[", 
                 RowBox[{"7", ",", "1"}], "]"}], "]"}], "-", "delta"}], ",", 
              RowBox[{
               RowBox[{"pontok", "[", 
                RowBox[{"[", 
                 RowBox[{"7", ",", "1"}], "]"}], "]"}], "+", "delta"}]}], 
             "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"pontok", "[", 
                RowBox[{"[", 
                 RowBox[{"7", ",", "2"}], "]"}], "]"}], "-", "delta"}], ",", 
              RowBox[{
               RowBox[{"pontok", "[", 
                RowBox[{"[", 
                 RowBox[{"7", ",", "2"}], "]"}], "]"}], "+", "delta"}]}], 
             "}"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Graphics3D", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"pontok", "[", 
            RowBox[{"[", "7", "]"}], "]"}], "]"}]}], "}"}], "]"}]}], "]"}], 
     ",", 
     RowBox[{"Style", "[", 
      RowBox[{
      "\"\<K\[ODoubleDot]zel\[IAcute]t\[EAcute]s a minimumra\>\"", ",", "16", 
       ",", 
       RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}], ",", 
       "Italic"}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"delta", ",", "4", ",", "1"}], "}"}], ",", " ", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6716085528018265`*^9, 3.671608599435294*^9}, {
   3.671608823549117*^9, 3.6716088985986567`*^9}, {3.6716090064529257`*^9, 
   3.6716090332859955`*^9}, {3.671609143118462*^9, 3.6716092614974594`*^9}, {
   3.671609397154722*^9, 3.6716094126797285`*^9}, {3.671609442997235*^9, 
   3.6716094734810133`*^9}, {3.6716096088693886`*^9, 3.6716096634831986`*^9}, 
   3.671609764500951*^9, {3.671610044950569*^9, 3.671610064167392*^9}, {
   3.6716101459204826`*^9, 3.6716102633063374`*^9}, {3.6716102950929537`*^9, 
   3.67161033399828*^9}, {3.6716104038140893`*^9, 3.6716108894515924`*^9}, {
   3.6716112874691615`*^9, 3.671611292693875*^9}, {3.6716117093929853`*^9, 
   3.671611714602696*^9}, {3.6716118403079224`*^9, 3.6716118886284914`*^9}, {
   3.6716119192622833`*^9, 3.6716119238695307`*^9}, {3.6716141305331345`*^9, 
   3.671614131924142*^9}, {3.6716141799894714`*^9, 3.671614293929098*^9}, {
   3.6716144137317724`*^9, 3.6716144664953184`*^9}, {3.671716450495613*^9, 
   3.6717164525420675`*^9}, {3.671716511929517*^9, 3.6717165145443754`*^9}, 
   3.671716552360084*^9, {3.6717167278519316`*^9, 3.6717167470328264`*^9}, {
   3.67171678255626*^9, 3.6717167982374353`*^9}, {3.6717168316210623`*^9, 
   3.6717168380626135`*^9}, {3.6717168808480215`*^9, 3.6717169418485785`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`delta$$ = 4., Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`delta$$], 4, 1}}, Typeset`size$$ = {
    360., {194., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`delta$16489$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`delta$$ = 4}, 
      "ControllerVariables" :> {
        Hold[$CellContext`delta$$, $CellContext`delta$16489$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Labeled[
        Show[
         Plot3D[
          $CellContext`m[$CellContext`x, $CellContext`y], {$CellContext`x, -2,
            2}, {$CellContext`y, -2, 2}, AxesLabel -> {"x", "y", "z"}, Axes -> 
          False, Background -> Lighter[Gray, 0.5], BoxRatios -> {1, 1, 1.5}, 
          Boxed -> False, SphericalRegion -> True, PerformanceGoal -> 
          "Quality", ColorFunction -> 
          Function[{$CellContext`x, $CellContext`y, $CellContext`z}, 
            ColorData["Rainbow"][$CellContext`z]], MeshFunctions -> 
          Function[{$CellContext`x, $CellContext`y, $CellContext`z}, \
$CellContext`z], PlotPoints -> 50, ImageSize -> Medium, 
          PlotRange -> {{
            Part[$CellContext`pontok, 7, 1] - $CellContext`delta$$, 
             Part[$CellContext`pontok, 7, 1] + $CellContext`delta$$}, {
            Part[$CellContext`pontok, 7, 2] - $CellContext`delta$$, 
             Part[$CellContext`pontok, 7, 2] + $CellContext`delta$$}}], 
         Graphics3D[{
           PointSize[Medium], 
           Point[
            Part[$CellContext`pontok, 7]]}]], 
        Style[
        "K\[ODoubleDot]zel\[IAcute]t\[EAcute]s a minimumra", 16, FontFamily -> 
         "Courier New", Italic]], 
      "Specifications" :> {{$CellContext`delta$$, 4, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{411., {231., 238.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`m[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          Blank[]]] = 
       E^(-$CellContext`x^2 - $CellContext`y^2) ($CellContext`x^3 + \
$CellContext`y^2), $CellContext`pontok = {{-2.41706981359718*^-27, 1., 
        0.36787944117144233`}, {
        8.472899309739809*^-9, -6.688871304346933*^-198, 
        6.0826963389109235`*^-25}, {0.6666666666666666, 0.8388704928078611, 
        0.31722367703207804`}, {1.2247448713915892`, -8.639927347510516*^-21, 
        0.40991627894186006`}, {0.6666666666666666, -0.8388704928078611, 
        0.31722367703207804`}, {-9.46462736948359*^-16, -1., 
        0.36787944117144233`}, {-1.224744871391589, \
-1.1471159789126392`*^-20, -0.40991627894186006`}}}; 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.671609240262206*^9, 3.671609261901754*^9}, 
   3.6716094154877515`*^9, 3.671609473971362*^9, 3.671609664277768*^9, 
   3.671609766135085*^9, 3.671609889813182*^9, {3.67161004723619*^9, 
   3.6716100671324987`*^9}, {3.671610151890725*^9, 3.6716101976572504`*^9}, {
   3.6716102383398714`*^9, 3.6716102641979775`*^9}, {3.6716103132758493`*^9, 
   3.67161033488291*^9}, {3.671610479135358*^9, 3.671610633830432*^9}, {
   3.6716106888875837`*^9, 3.6716107452490187`*^9}, {3.671610776769427*^9, 
   3.6716108392259045`*^9}, {3.6716108752585073`*^9, 3.671610889895914*^9}, {
   3.6716112884918876`*^9, 3.6716112933093147`*^9}, 3.6716117151540847`*^9, {
   3.671611856191229*^9, 3.671611890159587*^9}, 3.671611924791213*^9, 
   3.6716138606669865`*^9, 3.6716141326836805`*^9, {3.67161418751582*^9, 
   3.671614294317402*^9}, {3.6716144145433216`*^9, 3.671614436111655*^9}, 
   3.6716144673399477`*^9, 3.671702845086213*^9, 3.671707369556641*^9, 
   3.6717164540381308`*^9, 3.6717165159744205`*^9, 3.6717165554032454`*^9, 
   3.67171680300782*^9, 3.6717168857975397`*^9, {3.671716928509056*^9, 
   3.6717169428502903`*^9}},
 TextAlignment->Center]
}, {2}]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Manipulate", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"pont", "\[Equal]", "\"\<maximum\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Labeled", "[", 
        RowBox[{
         RowBox[{"Show", "[", 
          RowBox[{
           RowBox[{"Plot3D", "[", 
            RowBox[{
             RowBox[{"m", "[", 
              RowBox[{"x", ",", "y"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"x", ",", 
               RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"y", ",", 
               RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
             RowBox[{"AxesLabel", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"\"\<x\>\"", ",", "\"\<y\>\"", ",", "\"\<z\>\""}], 
               "}"}]}], ",", 
             RowBox[{"Axes", "\[Rule]", "False"}], ",", 
             RowBox[{"Background", "\[Rule]", 
              RowBox[{"Lighter", "[", 
               RowBox[{"Gray", ",", " ", "0.5"}], "]"}]}], ",", 
             RowBox[{"BoxRatios", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"1", ",", " ", "1", ",", " ", "1.5"}], "}"}]}], ",", 
             RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
             RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quality\>\""}], ",", 
             RowBox[{"ColorFunction", "\[Rule]", 
              RowBox[{"Function", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", " ", 
                RowBox[{
                 RowBox[{"ColorData", "[", "\"\<Rainbow\>\"", "]"}], "[", "z",
                  "]"}]}], "]"}]}], ",", 
             RowBox[{"MeshFunctions", "\[Rule]", 
              RowBox[{"Function", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", " ", "z"}], 
               "]"}]}], ",", 
             RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", 
             RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", 
             RowBox[{"PlotRange", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"pontok", "[", 
                    RowBox[{"[", 
                    RowBox[{"4", ",", "1"}], "]"}], "]"}], "-", "delta"}], 
                  ",", 
                  RowBox[{
                   RowBox[{"pontok", "[", 
                    RowBox[{"[", 
                    RowBox[{"4", ",", "1"}], "]"}], "]"}], "+", "delta"}]}], 
                 "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"pontok", "[", 
                    RowBox[{"[", 
                    RowBox[{"4", ",", "2"}], "]"}], "]"}], "-", "delta"}], 
                  ",", 
                  RowBox[{
                   RowBox[{"pontok", "[", 
                    RowBox[{"[", 
                    RowBox[{"4", ",", "2"}], "]"}], "]"}], "+", "delta"}]}], 
                 "}"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Graphics3D", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
              RowBox[{"Point", "[", 
               RowBox[{"pontok", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "]"}]}], "}"}], "]"}]}], 
          "]"}], ",", 
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<K\[ODoubleDot]zel\[IAcute]t\[EAcute]s a maximumra\>\"", ",", 
           "16", ",", 
           RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}], ",", 
           "Italic"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"Labeled", "[", 
        RowBox[{
         RowBox[{"Show", "[", 
          RowBox[{
           RowBox[{"Plot3D", "[", 
            RowBox[{
             RowBox[{"m", "[", 
              RowBox[{"x", ",", "y"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"x", ",", 
               RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"y", ",", 
               RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
             RowBox[{"AxesLabel", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"\"\<x\>\"", ",", "\"\<y\>\"", ",", "\"\<z\>\""}], 
               "}"}]}], ",", 
             RowBox[{"Axes", "\[Rule]", "False"}], ",", 
             RowBox[{"Background", "\[Rule]", 
              RowBox[{"Lighter", "[", 
               RowBox[{"Gray", ",", " ", "0.5"}], "]"}]}], ",", 
             RowBox[{"BoxRatios", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"1", ",", " ", "1", ",", " ", "1.5"}], "}"}]}], ",", 
             RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
             RowBox[{"SphericalRegion", "\[Rule]", "True"}], ",", 
             RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quality\>\""}], ",", 
             RowBox[{"ColorFunction", "\[Rule]", 
              RowBox[{"Function", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", " ", 
                RowBox[{
                 RowBox[{"ColorData", "[", "\"\<Rainbow\>\"", "]"}], "[", "z",
                  "]"}]}], "]"}]}], ",", 
             RowBox[{"MeshFunctions", "\[Rule]", 
              RowBox[{"Function", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", " ", "z"}], 
               "]"}]}], ",", 
             RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", 
             RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", 
             RowBox[{"PlotRange", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"pontok", "[", 
                    RowBox[{"[", 
                    RowBox[{"2", ",", "1"}], "]"}], "]"}], "-", "delta"}], 
                  ",", 
                  RowBox[{
                   RowBox[{"pontok", "[", 
                    RowBox[{"[", 
                    RowBox[{"2", ",", "1"}], "]"}], "]"}], "+", "delta"}]}], 
                 "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"pontok", "[", 
                    RowBox[{"[", 
                    RowBox[{"2", ",", "2"}], "]"}], "]"}], "-", "delta"}], 
                  ",", 
                  RowBox[{
                   RowBox[{"pontok", "[", 
                    RowBox[{"[", 
                    RowBox[{"2", ",", "2"}], "]"}], "]"}], "+", "delta"}]}], 
                 "}"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Graphics3D", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
              RowBox[{"Point", "[", 
               RowBox[{"pontok", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], "]"}]}], 
          "]"}], ",", 
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<K\[ODoubleDot]zel\[IAcute]t\[EAcute]s a nyeregpontra\>\"", ",",
            "16", ",", 
           RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}], ",", 
           "Italic"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"delta", ",", "4", ",", "1"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"pont", ",", " ", "\"\<maximum\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<maximum\>\"", ",", "\"\<nyeregpont\>\""}], "}"}], ",", 
       " ", 
       RowBox[{"ControlType", "\[Rule]", "Setter"}]}], "}"}], ",", 
     RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "\[IndentingNewLine]", 
    "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.6716086350453773`*^9, 3.671608637987117*^9}, {
   3.6716119581570883`*^9, 3.6716119613523655`*^9}, {3.6716121108673*^9, 
   3.671612113156927*^9}, {3.6716121602335835`*^9, 3.6716122822466664`*^9}, {
   3.671612326709265*^9, 3.6716124052931857`*^9}, {3.671612532595041*^9, 
   3.671612564049312*^9}, {3.6716126807086353`*^9, 3.671612837113709*^9}, {
   3.6716129658689823`*^9, 3.671612976066209*^9}, {3.6716130750639725`*^9, 
   3.671613199112405*^9}, {3.671613249826312*^9, 3.6716132595412235`*^9}, {
   3.671613304728405*^9, 3.671613381351308*^9}, {3.671613417654319*^9, 
   3.671613496621707*^9}, {3.671613560722661*^9, 3.671613562260754*^9}, 
   3.671613606466292*^9, {3.671613637878591*^9, 3.671613648172913*^9}, {
   3.6716138989592876`*^9, 3.6716139787423935`*^9}, 3.6716140458427944`*^9, {
   3.671614332577795*^9, 3.671614355728241*^9}, {3.6717164615404406`*^9, 
   3.671716461926717*^9}, {3.6717164968465548`*^9, 3.6717165002089443`*^9}, {
   3.671716536438772*^9, 3.6717165384391966`*^9}, {3.6717226463773465`*^9, 
   3.671722711902978*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`delta$$ = 4, $CellContext`pont$$ = 
    "nyeregpont", Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`delta$$], 4, 1}, {{
       Hold[$CellContext`pont$$], "maximum"}, {"maximum", "nyeregpont"}}}, 
    Typeset`size$$ = {360., {196., 182.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`delta$220337$$ = 0, $CellContext`pont$220338$$ = 
    False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`delta$$ = 4, $CellContext`pont$$ = 
        "maximum"}, "ControllerVariables" :> {
        Hold[$CellContext`delta$$, $CellContext`delta$220337$$, 0], 
        Hold[$CellContext`pont$$, $CellContext`pont$220338$$, False]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      If[$CellContext`pont$$ == "maximum", 
        Labeled[
         Show[
          Plot3D[
           $CellContext`m[$CellContext`x, $CellContext`y], {$CellContext`x, \
-2, 2}, {$CellContext`y, -2, 2}, AxesLabel -> {"x", "y", "z"}, Axes -> False, 
           Background -> Lighter[Gray, 0.5], BoxRatios -> {1, 1, 1.5}, Boxed -> 
           False, PerformanceGoal -> "Quality", ColorFunction -> 
           Function[{$CellContext`x, $CellContext`y, $CellContext`z}, 
             ColorData["Rainbow"][$CellContext`z]], MeshFunctions -> 
           Function[{$CellContext`x, $CellContext`y, $CellContext`z}, \
$CellContext`z], PlotPoints -> 50, ImageSize -> Medium, 
           PlotRange -> {{
             Part[$CellContext`pontok, 4, 1] - $CellContext`delta$$, 
              Part[$CellContext`pontok, 4, 1] + $CellContext`delta$$}, {
             Part[$CellContext`pontok, 4, 2] - $CellContext`delta$$, 
              Part[$CellContext`pontok, 4, 2] + $CellContext`delta$$}}], 
          Graphics3D[{
            PointSize[Medium], 
            Point[
             Part[$CellContext`pontok, 4]]}]], 
         Style[
         "K\[ODoubleDot]zel\[IAcute]t\[EAcute]s a maximumra", 16, FontFamily -> 
          "Courier New", Italic]], 
        Labeled[
         Show[
          Plot3D[
           $CellContext`m[$CellContext`x, $CellContext`y], {$CellContext`x, \
-2, 2}, {$CellContext`y, -2, 2}, AxesLabel -> {"x", "y", "z"}, Axes -> False, 
           Background -> Lighter[Gray, 0.5], BoxRatios -> {1, 1, 1.5}, Boxed -> 
           False, SphericalRegion -> True, PerformanceGoal -> "Quality", 
           ColorFunction -> 
           Function[{$CellContext`x, $CellContext`y, $CellContext`z}, 
             ColorData["Rainbow"][$CellContext`z]], MeshFunctions -> 
           Function[{$CellContext`x, $CellContext`y, $CellContext`z}, \
$CellContext`z], PlotPoints -> 50, ImageSize -> Medium, 
           PlotRange -> {{
             Part[$CellContext`pontok, 2, 1] - $CellContext`delta$$, 
              Part[$CellContext`pontok, 2, 1] + $CellContext`delta$$}, {
             Part[$CellContext`pontok, 2, 2] - $CellContext`delta$$, 
              Part[$CellContext`pontok, 2, 2] + $CellContext`delta$$}}], 
          Graphics3D[{
            PointSize[Medium], 
            Point[
             Part[$CellContext`pontok, 2]]}]], 
         Style[
         "K\[ODoubleDot]zel\[IAcute]t\[EAcute]s a nyeregpontra", 16, 
          FontFamily -> "Courier New", Italic]]], 
      "Specifications" :> {{$CellContext`delta$$, 4, 
         1}, {{$CellContext`pont$$, "maximum"}, {"maximum", "nyeregpont"}, 
         ControlType -> Setter}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{411., {244., 251.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`m[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          Blank[]]] = 
       E^(-$CellContext`x^2 - $CellContext`y^2) ($CellContext`x^3 + \
$CellContext`y^2), $CellContext`pontok = {{-2.41706981359718*^-27, 1., 
        0.36787944117144233`}, {
        8.472899309739809*^-9, -6.688871304346933*^-198, 
        6.0826963389109235`*^-25}, {0.6666666666666666, 0.8388704928078611, 
        0.31722367703207804`}, {1.2247448713915892`, -8.639927347510516*^-21, 
        0.40991627894186006`}, {0.6666666666666666, -0.8388704928078611, 
        0.31722367703207804`}, {-9.46462736948359*^-16, -1., 
        0.36787944117144233`}, {-1.224744871391589, \
-1.1471159789126392`*^-20, -0.40991627894186006`}}}; 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.671725736101996*^9},
 TextAlignment->Center]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Ir\[AAcute]nymenti deriv\[AAcute]lt", "Section",
 CellChangeTimes->{{3.6711929136902857`*^9, 3.671192923211051*^9}},
 FontFamily->"Gill Sans MT",
 FontWeight->"Bold",
 FontColor->RGBColor[1., 1., 1.],
 Background->RGBColor[
  0.25098039215686274`, 0.5019607843137255, 0.5019607843137255]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Adott", " ", "f", 
   RowBox[{"(", 
    RowBox[{"x", ",", "y"}], ")"}], " ", 
   "k\[EAcute]tv\[AAcute]ltoz\[OAcute]s", " ", 
   "f\[UDoubleDot]ggv\[EAcute]ny"}], ",", 
  RowBox[{
   RowBox[{
   "mely", " ", "\[EAcute]rtelmez\[EAcute]si", " ", 
    "tartom\[AAcute]ny\[AAcute]nak", " ", "egy", " ", "pontja", " ", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["x", "0"], ",", 
      SubscriptBox["y", "0"]}], ")"}]}], "\[Element]", 
   RowBox[{
    SubscriptBox["D", "f"], "."}]}]}]], "Text",
 CellChangeTimes->{{3.6717086634172015`*^9, 3.671708762222763*^9}, {
  3.6717088032711296`*^9, 3.671708831393359*^9}},
 TextAlignment->Center,
 FontFamily->"Courier New",
 FontSize->16],

Cell[BoxData[
 RowBox[{"Adott", " ", "tov\[AAcute]bb\[AAcute]", " ", "egy", 
  FormBox[
   RowBox[{
    UnderscriptBox["e", "_"], "(", 
    RowBox[{
     SubscriptBox["e", "1"], ",", 
     SubscriptBox["e", "2"]}], ")"}],
   TraditionalForm], 
  RowBox[{"egys\[EAcute]gvektor", ".", "Ekkor"}], " ", "az", 
  FormBox[
   UnderscriptBox["e", "_"],
   TraditionalForm], "ir\[AAcute]ny", " ", "menti", " ", 
  RowBox[{"deriv\[AAcute]lt", "(", 
   RowBox[{
    SubscriptBox["x", "0"], ",", 
    SubscriptBox["y", "0"]}], ")"}], 
  RowBox[{"pontban", ":", 
   StyleBox[
    RowBox[{
     UnderscriptBox["lim", 
      RowBox[{"t", " ", "\[Rule]", " ", 
       RowBox[{"0", "+"}]}]], 
     FractionBox[
      RowBox[{
       RowBox[{"f", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["x", "0"], "+", 
           RowBox[{
            SubscriptBox["e", "1"], "\[CenterDot]", "t"}]}], ",", 
          RowBox[{
           SubscriptBox["y", "0"], "+", 
           SubscriptBox["e", 
            RowBox[{"2", "\[CenterDot]", "t"}]]}]}], ")"}]}], "-", 
       RowBox[{"f", 
        RowBox[{"(", 
         RowBox[{
          SubscriptBox["x", "0"], ",", 
          SubscriptBox["y", "0"]}], ")"}]}]}], "t"]}],
    FontWeight->"Bold",
    FontColor->RGBColor[
     0.5019607843137255, 0., 0.5019607843137255]]}]}]], "Text",
 CellChangeTimes->{{3.6717088344445276`*^9, 3.671708970258547*^9}, {
  3.671714005123036*^9, 3.6717141231486917`*^9}, {3.6717141587384663`*^9, 
  3.6717141816450005`*^9}, {3.671714224720108*^9, 3.671714436969734*^9}},
 TextAlignment->Center,
 FontFamily->"Courier New",
 FontSize->16],

Cell[BoxData[{
 RowBox[{
  RowBox[{
  "Ha", "  ", "egy", " ", "k\[EAcute]tv\[AAcute]ltoz\[OAcute]s", "    ", "f", 
   RowBox[{"(", 
    RowBox[{"x", ",", "y"}], ")"}], "   ", "f\[UDoubleDot]ggv\[EAcute]ny", 
   " ", "a", " ", "pontbeli", "   ", 
   UnderscriptBox["e", "_"], "   ", "ir\[AAcute]ny\[UAcute]", " ", 
   "ir\[AAcute]nymenti", " ", "deriv\[AAcute]ltj\[AAcute]r\[OAcute]l", " ", 
   "besz\[EAcute]l\[UDoubleDot]nk"}], ",", 
  RowBox[{
  "akkor", " ", "annak", " ", "az", " ", "egyv\[AAcute]ltoz\[OAcute]s", " ", 
   "f\[UDoubleDot]ggv\[EAcute]nynek", " ", "a", " ", 
   "deriv\[AAcute]ltj\[AAcute]ra", " ", "gondolunk"}], ",", 
  RowBox[{"amelyiket", " ", "az", " ", "eredeti", " ", "f"}]}], "\n", 
 RowBox[{
  RowBox[{
  "f\[UDoubleDot]ggv\[EAcute]ny", " ", "grafikonj\[AAcute]nak", " ", 
   "\[EAcute]s", " ", "az", "  ", "a"}], " ", ",", 
  RowBox[{
   RowBox[{"valamint", " ", "az", "  ", "a"}], "+", 
   RowBox[{
    UnderscriptBox["e", "_"], "   ", "pontokon", " ", 
    "\[AAcute]tmen\[ODoubleAcute]"}]}], ",", 
  RowBox[{
  "az", " ", "x", " ", "\[EAcute]s", " ", "y", " ", 
   "koordin\[AAcute]tatengelyek", " ", "\[AAcute]ltal", " ", 
   "kifesz\[IAcute]tett", " ", "s\[IAcute]kra", " ", 
   "mer\[ODoubleAcute]leges", " ", "s\[IAcute]k", " ", "metszetek\[EAcute]nt",
    " ", 
   RowBox[{"kapunk", ".", "\[IndentingNewLine]"}]}]}]}], "Text",
 CellChangeTimes->{{3.671712224290107*^9, 3.6717122944876833`*^9}, {
  3.671714452854313*^9, 3.6717145323574295`*^9}, {3.67172247952431*^9, 
  3.6717225277225904`*^9}},
 TextAlignment->Center,
 FontFamily->"Courier New",
 FontSize->16],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    StyleBox["P\[EAcute]lda",
     FontSize->20,
     FontVariations->{"Underline"->True},
     FontColor->RGBColor[0., 0.5019607843137255, 0.5019607843137255]], ":", 
    "\[IndentingNewLine]", 
    StyleBox[
     RowBox[{"f", 
      RowBox[{"(", 
       RowBox[{"x", ",", "y"}], ")"}]}],
     FontWeight->"Bold",
     FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}], 
   StyleBox["=",
    FontWeight->"Bold",
    FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
   StyleBox[
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["x", "4"]}], "-", 
     SuperscriptBox["y", "2"]}],
    FontWeight->"Bold",
    FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}], ",", 
  "\[IndentingNewLine]", 
  StyleBox[
   RowBox[{"a", "=", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "1"}], ")"}]}],
   FontWeight->"Bold",
   FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], ",", 
  "\[IndentingNewLine]", 
  StyleBox[
   RowBox[{
    UnderscriptBox["e", "_"], "=", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       SqrtBox["2"], "2"], ",", 
      FractionBox[
       SqrtBox["2"], "2"]}], ")"}]}],
   FontWeight->"Bold",
   FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], ",", 
  "\[IndentingNewLine]", 
  RowBox[{
  "akkor", " ", "az", " ", "al\[AAcute]bbi", " ", "\[AAcute]br\[AAcute]n", 
   " ", "l\[AAcute]that\[OAcute]", " ", "piros", " ", "ny\[IAcute]l", " ", 
   "meredeks\[EAcute]ge", " ", "az", " ", "ir\[AAcute]nymenti", " ", 
   RowBox[{"deriv\[AAcute]lt", ".", "\[IndentingNewLine]"}]}]}]], "Text",
 CellChangeTimes->{{3.671714551859659*^9, 3.6717147306963525`*^9}, {
  3.6717257796018844`*^9, 3.671725813143788*^9}},
 TextAlignment->Center,
 FontFamily->"Courier New",
 FontSize->16],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.671709524080282*^9, 3.6717095372486477`*^9}, {
   3.671712430205064*^9, 3.671712435162614*^9}, {3.6717139316075325`*^9, 
   3.6717139517496614`*^9}, 3.6717148931589093`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"ir", "[", 
      RowBox[{"x_", ",", "y_"}], "]"}], "=", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"x", "^", "4"}]}], "-", 
      RowBox[{"x", "^", "2"}]}]}], ";", 
    RowBox[{"vektor", "=", 
     RowBox[{"Normalize", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}], "]"}]}], ";", 
    RowBox[{"mer", "=", 
     RowBox[{"Limit", "[", 
      RowBox[{
       FractionBox[
        RowBox[{
         RowBox[{"ir", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{
             RowBox[{"vektor", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "*", "t"}]}], ",", 
           RowBox[{"1", "+", 
            RowBox[{
             RowBox[{"vektor", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "*", "t"}]}]}], "]"}], "-", 
         RowBox[{"ir", "[", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1"}], "]"}]}], "t"], ",", 
       RowBox[{"t", "\[Rule]", "0"}], ",", 
       RowBox[{"Direction", "\[Rule]", 
        RowBox[{"-", "1"}]}]}], "]"}]}], ";", 
    RowBox[{"Plot3D", "[", 
     RowBox[{
      RowBox[{"ir", "[", 
       RowBox[{"x", ",", "y"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", 
        RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", " ", 
      RowBox[{"Mesh", "\[Rule]", "None"}], ",", " ", 
      RowBox[{"PlotStyle", "\[Rule]", "Gray"}]}], "]"}]}], ",", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Point", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1", ",", 
           RowBox[{"-", "20"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1", ",", 
           RowBox[{"ir", "[", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "1"}], "]"}]}], "}"}]}], "}"}], "]"}], 
      ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1", ",", 
           RowBox[{"-", "20"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1", ",", 
           RowBox[{"ir", "[", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "1"}], "]"}]}], "}"}]}], "}"}], "]"}], 
      ",", " ", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "2", ",", 
           RowBox[{"-", "20"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", 
           RowBox[{"-", "2"}], ",", 
           RowBox[{"-", "20"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Red", ",", "Thick", ",", 
      RowBox[{"Arrowheads", "[", ".01", "]"}], ",", 
      RowBox[{"Arrow", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1", ",", 
           RowBox[{"-", "20"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{".2", ",", 
           RowBox[{"-", ".2"}], ",", 
           RowBox[{"-", "20"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", 
   " ", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<x\>\"", ",", "\"\<y\>\"", ",", "\"\<z\>\""}], "}"}]}], ",", 
   " ", 
   RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", " ", 
   RowBox[{"Axes", "->", "False"}], ",", " ", 
   RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6717092515662003`*^9, 3.6717094289273496`*^9}, {
   3.6717095216193657`*^9, 3.6717095446320353`*^9}, {3.6717097837268724`*^9, 
   3.6717098623667803`*^9}, {3.671709896374024*^9, 3.6717099199688344`*^9}, {
   3.6717099745517063`*^9, 3.671710024719599*^9}, {3.6717107641175475`*^9, 
   3.6717107881958256`*^9}, 3.671710837048894*^9, 3.6717108706521697`*^9, {
   3.671711021052905*^9, 3.671711022581991*^9}, {3.6717110629210997`*^9, 
   3.671711063856737*^9}, {3.671711124472724*^9, 3.671711155304542*^9}, {
   3.671711883192463*^9, 3.6717118941432457`*^9}, {3.6717124698384404`*^9, 
   3.6717125345467463`*^9}, {3.6717126492159834`*^9, 
   3.6717126790091715`*^9}, {3.671712809375541*^9, 3.6717128912521477`*^9}, {
   3.6717129608888693`*^9, 3.671713256575469*^9}, {3.671713711844885*^9, 
   3.6717138019973907`*^9}, {3.671714897525169*^9, 3.6717148987670307`*^9}, {
   3.671722546541814*^9, 3.6717226009413285`*^9}}],

Cell[BoxData[
 Graphics3DBox[{GraphicsComplex3DBox[CompressedData["
1:eJx1m0+oXVcVh6NOAkpBFBuEQguhLQiCVigt4hZxkEAFMYJ0JIgpDgydWAQV
/DNx1EmgYgtCdWJRkfoKj2qFG54S0KcOjhr/XEt0Gx6Gi0pP0ytR67Pk3W/D
+9b9deDl/bq71nd+d5191trnetcnHv3I+defOHHi5mv/84bXPu968UPPHR4e
Lvj82X2Pnjs8vO/SI5959sndC/8Z+o0vv+33X7j7nkvfeeNbvnRhuR76N3/9
nh9+fzp16R/feuyR02fnoc8n7vnlC6dOXjp/K85q6G898+GTD3zyxuJofR/6
/R/97anLzy83+jT0X9z72eeffGp3cWLzDzp/b9Y3r9/Eb46/4WnbeeZm/s31
Nl/vxp9mfzZ/N/vJ3/hqn/m0z+j2Gd0+o9tndPuMbp/R7bPX47Pj4/N2nrmZ
H599vfhsf/DZfuIz/tlndPvMp31Gt8/o9hndPqPbZ3T77PX47Pj4vJ1nbubH
Z18vPtsffLaf+IxP9hndPqPbZz7tM7p9RrfP6PYZ3T57PT47Pj5v55mb+fHZ
14vP9gef7Sc+44d9RrfP6PYZ3T7zaZ/R7TO6fUa3z16Pz46Pz9t55mZ+fPb1
4rP9wWf7ebyee6jnHuq5h3ruoZ57qOce6rmHeu6hnnuo5x7q2TxzM//xeu6h
nnuo5x58noLPU/B5Cj5Pwecp+DwFn6fg8xR8noLPU/DZPHMz/3Gfp+DzFHye
is9w22d0+4xun9HtM7p9RrfP6PbZ/+Cz1+Oz4+Pzdp556PbZ14vP9gef7afq
uYV6bqGeW6jnFuq5hXpuoZ5bqOfmv71e9dxCPbdQzy3Ucwv13EI9t7A/B597
8LkHn3vwuQefe/C5B5978LkHn3vw2Txjfw4+9+BzDz734jP5Q79RfEYP/Ubx
GT30G8Vn9NBvFJ+9Xv1G8Xk7z+g3is++XvUbxWf7qf451PMc6nkO9TyHep5D
Pc+hnudQz3Oo5znU8xzq2Tyjfw71PId6nkM9z8Vn4oV5sPiMHubB4jN6mAeL
z+hhHiw+ez0+O77mweKz+TUPFp/tj+bB4jP/XTjfKD6jh/ON4jN6ON8oPqOH
843is9fjs+PrfKP4bH6dbxSf7Y/ON4rP/PtwXld8Rg/ndcVn9HBeV3xGD+d1
xWevx2fH13ld8dn8Oq8rPtsfndcNP3967xfvXu6+uuDzoR994PzDz75z+I/O
+qO8B0N/3+9e/MnJZ/624V8O/f3v3vnxm3+zP3TioR9d195Y/9I3Pv70beee
GDrrpbewvnn9Jm8LPM08m+tqvi501qNv1rXgW0u+nbz0lzddPH2z+IZuf9B9
vda5LseB33nheehjH3z5zMUbhQfdPOjmsQ6P48DjvPDcecu/fxYedPOgm8c6
PI4Dj/PCw6d50M2Dbh7r8DgOPM7L3+Q3D5/mQTePdXgcBx7nhYc85kE3D5/m
sQ6P48DjvOJpgacFnhZ4WuBpgaeF76vwoIfvq/BY1/dVeJxX9Vx40EM9Fx7r
qufC47y63wsPerjfC4913e+Fx3m1HxYe9LAfFh7r2g8Lj/PqeVF40MPzovBY
1/Oi8Div+oQW+oQW+oTCj668o79ivfoE84/18qF5vfqK4oN51FeM9eoTfF3N
POof7Gezn/zNeumjL0KXb4vjvvXxvbmPRXcfi+4+1uvpYx1f/IMTHvoQ86Cb
B908Xg/P9vh99C3Oi+686M7r9eTdHr+P/sR50Z0X3Xm9nrzb4/dxP22fxw/C
+9mD8H72ILyfdfw+7svt51rL8B5tGd6jLcN7NMfv4/7efs6zF9537IX3HXvh
fYfjj7zhfGkvnC/thfOlvXC+5PjD53B+uAznh8twfrgM54eOP+oqnPMchHOe
g3DOcxDOeRx/3EclL3q4j0per9d9VPLyXA77RsmLHvaNknd7/LFPlrzoYZ8s
eb1e+2TTvr3wc0fPkcKDHp4jhcfr9RwZ8TVHl76CcyD3Fejui9DdF1mn7h2H
unTe4331OsyJ6zAnrsOcuA5z4jrMieswB81hLpvDXDaHuWwOc9kc5rI5zK2r
MLeuwty6CnPrKsytqzC3roI/PfjTgz89+NODPz340wPPFHimwDMFninwTIFn
Kjzct+ZBNw+6eaz7OWQe55U/Ya6fwlw/hbl+CnP9FOb6qcxl7FuhfgJPDzw9
8PTA08M5wyqcM6zCOcMqnDOswjnDKpwzrII/c/BnDv7MwZ85+DMHf+bCw3l5
2J/Ducc6nHusw7nHOpx7rAsP5/Th+VV40MPzq/A4jp5fI+/8lYNPX1j+b3x+
9eeP3/704+/aPGevDP29f33w6899irrZH/rlp3a/ffNrzwyduQ/9iHNnrH/w
hYf/+I7XPYbekk4c9E385rwbzmZOdOKgb9a1dL33v/3sudNn/12uF93XhW5+
6/A7DpzOC8/nf/DdB5a7rxQedPOgm8c6PI4Dj/PCszhz250XT79UeNDNg24e
6/A4DjzOC89RH3u98KCbB9081uFxHHicF56jOeJq4UE3D7p5rMPjOPA4Lzzk
Nw+f5kE3j3V4HAce54WHeOZBNw+6eazD4zjwOC88/HvzoJsH3TzW4XEc/nZe
eI7mwWuFB9086OaxDo/jwOG88Ozdmr/+XnjQzYNuHuvwOA48zgvPHa/+6Xu7
F14uPOjmQTePdXgcBx7nhecP5z93+fDwX4UH3Tzo5rEOj+PA47x6jjc/1574
1e1/PnPxv4UTXfFHHNbDz3rzB33E8XWFvC1w8rwe6/UcH9c7/n9NGz+Onxtc
WbgfgNP9Bn0XcY73V/tte5+z18L6hfkVX33d6Ivk54iv9xGj/yn1ufGz7P/o
rk/08P2W/d9x9D2WvgvfXJ+bei6c6OE+KpzWdR8VTufVPlN40MM+U3isa58p
PM6rfbjwoId9uPBY1z5ceJxXz6nCgx6eU4XHup5Thcd59RwvPOjhOV54rOs5
XnicV31O4UEPfU7hsa4+p/A4r/rAsv+jhz6w7PPW1QeW/dx51ScXHvTQJxce
6+qTC4/zao4oPOhhjig81jVHFB7n1ZxVeNDDnFV4rGvOKjzOqzm08KCHObTw
WNccWnicV3N64UEPc3rhsa45vfA4L8973lfwXONcleee34+g+/2I14/ffW50
+hnlXYS85b0nesi7CHlHH0V8ziscH93xvZ44nDM4DrrjeD1xOB9wHHTH8Xri
MNdvf792PfwO4XqJwzy+/b3k1fB+/2qJQ11vf5+7H96b75c41Pv299E74X30
TnMc7oPt73mvhPe8V0oc5s3t70+vhfen10oc5kTHQXccrycO853joDuO1xOH
ucxx0B3H6zW/NN93zEes11wz9iXysF7f91h/fD+cmuNr3inzl/c9nQN7H27O
q3NazZvjekv9o9tPr9f3UuKgh++lxKE/D3VS4ni96rbEQQ91W+LQD4f7KPx+
6VqJQx2F+zr8LuhK2mfC7212wu9tdtK+F37Hsh9+x7Jf7kf6vbAPh9+HXC1x
6NPCcyH87uJ6iUN/FZ5TJY7X67lZ4qA7jtfrOV7ioDuO1/8fGsY++Q==
    "], {{
      {GrayLevel[0.5], EdgeForm[None], 
       StyleBox[GraphicsGroup3DBox[Polygon3DBox[CompressedData["
1:eJxNmwfUVcURgO9duxHsKFZQRI3YUbBhiWJBUUFQI4hgL9iVSERARcUKlqDB
[encoded data, 9540 characters]
Yc8Z7t+ROAKnwD383ieowx5ygf3jZQ0Yhd/vJGX2JVgD5mBv+T9X+Q8K
          "]]],
        Lighting->Automatic]}, {}, {}, {}, {}}, 
     {GrayLevel[0], Line3DBox[CompressedData["
1:eJwl0EsuQ2EYgOG/7nddQcUCWIAQrVtUDTBsRzVjwJQVMDGSVGLAQFgBK2gH
Io1L3e8a0TSIWIKnMXjyft9/zvkHp3d+eW4pEkLIslsXQm2O67tG6aGfIabJ
sMgq62xxwBEFBlxw7PtL87Zu2K/M19xwW7vL2Z0O64l37s3nmrAX9cF+oaP2
U320l3Tc/mSe0Gd94ZU3Jp2deads3tFNe8mc55B9cqyxwgJpUgzSR4xf9nzf
rbM6454ucycdtPNDG998ed6qY9791Kq9RUfsVf2wN2vCXtEmppw1agP1eBSS
kf///wd8hjMN
       "]]}},
    VertexNormals->CompressedData["
1:eJztml1Ik1EYx+e6KWlRRtaFokXUMhDMMpy1wyjDrvKrpEzDQInUyqCsC0W9
KPq4cVqDEstsBrbKEaREbMMPCqIPcqk1JPMDcy43jDBzF70n8SyQR3xDmcXf
C1/25/A8v+ennPe8vFt79GRytlKhUIxLvxZJV1VvUVan121VTP6UhOWeCx0/
UcV0143muz98+cb32YGVZiOrNmUcqnX58rinxmK1wcyGly4vL2/15SG3VSnd
zy0scsLq1q/35X3eTE9i/iv2dXDVsl0JLpHrRw84uzzdTGeLSxp+8lnka9jK
qPg6Jwv4/TFRO5VPXjzsYdnrTGk9m8ovFKvUfH1Dzcsgqb7I47de6eL13fYm
j8Qj8sjtQ584z5nKVM4v8rzgIzrOH9VUyOcVefgl+2k+b09RA/cj8j5jys8K
yY9hdRn3KfKYsouB3Cc8wzM8wzM8wzM8wzM8wzM8wzM8wzM8wzM8wzM8LxzP
Y966Cu2Ez4Ol/UXL+YIa0n+ykjkrd4yIPOeqIf/BNzvLSN3/7EPaF5GHWx+F
aNr6ybzKpm8O1r4T+ZYNuuhNphEy72rc0yvlgt+bczlypryt8E2r1FfkjiRb
EO9L5btdB13SXCLXVp/K4nNRedSwiXsTeU/sUBP3RnmW602uB7lzgQc84AEP
eMAzG575PidQ66m5qDrUvFQdygNVh/Ij1yd1fqByyj/lzV/nWIrfXzzoi77o
i77oO3Nf6v7iLx48R4MHPOABD3jAM388izv2etf98fyeHasp6S+4xXbG195P
Pzwg8o5S79n69kF2rb0odDTMIXLzjQCNY8JF5m715vrchGaRK+6t+KgwuVlE
4xKnlAuet5aWzpny9DsxcVJ9kQ8cU0Xz+mnfbzZKnCJ/rNTlcU4qL2X7+Lwi
H4vYdvxv5pU7l1x+8IAHPOABD3hmwzNX93FqvVx+ar3cuaj11H2ceh8hdy7q
3EXxUOcxyjNVn/JJ1f9X/j9x7gIPeMADHvD8TzzUuWuu3o9Q70H81Xeu6qMO
6qDO9Drk996J+tR+SPWl9kOKR+7zF7UPU/stta8utL8L6qAO6kyv8ws1+4Nw

     "]], {Point3DBox[{{-1, 1, -20}, {-1, 1, -2}}], 
    Line3DBox[{{-1, 1, -20}, {-1, 1, -2}}], 
    Line3DBox[{{-2, 2, -20}, {2, -2, -20}}]}, 
   {RGBColor[1, 0, 0], Thickness[Large], Arrowheads[0.01], 
    Arrow3DBox[{{-1, 1, -20}, {0.2, -0.2, -20}}]}},
  Axes->False,
  AxesLabel->{
    FormBox["\"x\"", TraditionalForm], 
    FormBox["\"y\"", TraditionalForm], 
    FormBox["\"z\"", TraditionalForm]},
  BoxRatios->{1, 1, 0.4},
  Boxed->False,
  DisplayFunction->Identity,
  FaceGridsStyle->Automatic,
  ImageSize->Medium,
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0.3]], "RotationControl" -> "Globe"},
  PlotRange->{{-2, 2}, {-2, 2}, {-19.999989714287754`, 0.}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{0.2631640729792226, -3.095027990034837, 1.342216976346957},
  ViewVertical->{0., 0., 1.}]], "Output",
 CellChangeTimes->{{3.6717093020871077`*^9, 3.6717093071787033`*^9}, {
   3.671709355257721*^9, 3.6717094294747176`*^9}, 3.671709545328535*^9, {
   3.6717098299898186`*^9, 3.671709863319456*^9}, {3.6717099088150053`*^9, 
   3.6717099206813407`*^9}, 3.6717100277717733`*^9, 3.6717107898039694`*^9, 
   3.6717108622041645`*^9, {3.671711000858685*^9, 3.6717110240910645`*^9}, 
   3.6717111564623375`*^9, 3.671711625281999*^9, 3.6717118213513956`*^9, {
   3.6717118841170993`*^9, 3.6717118953250585`*^9}, 3.671712474240562*^9, {
   3.671712517294392*^9, 3.6717125351662035`*^9}, 3.6717126797016773`*^9, {
   3.671712850936984*^9, 3.6717128918735895`*^9}, {3.671713023332604*^9, 
   3.67171309053692*^9}, {3.6717131653932953`*^9, 3.6717132575741735`*^9}, {
   3.671713716221995*^9, 3.671713762407174*^9}, {3.671713792720826*^9, 
   3.6717138023036127`*^9}, 3.671714901098687*^9, {3.671722578559396*^9, 
   3.671722601602779*^9}},
 TextAlignment->Center]
}, {2}]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
   "A", " ", "k\[ODoubleDot]vetkez\[ODoubleAcute]", " ", "dinamikus", " ", 
    "\[AAcute]bra", " ", "n\[EAcute]h\[AAcute]ny", " ", 
    "f\[UDoubleDot]ggv\[EAcute]ny", " ", "ir\[AAcute]nymenti", " ", 
    "deriv\[AAcute]ltj\[AAcute]t", " ", "mutatja", " ", "meg"}], ",", 
   RowBox[{"szabadon", " ", "v\[AAcute]laszthat\[OAcute]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["x", "0"], ",", 
      SubscriptBox["y", "0"]}], ")"}], 
    RowBox[{"mellett", ".", "\[IndentingNewLine]"}]}]}]}]], "Text",
 CellChangeTimes->{{3.671714752244154*^9, 3.6717148559052696`*^9}, {
  3.6717223841660876`*^9, 3.671722397240352*^9}},
 TextAlignment->Center,
 FontFamily->"Courier New",
 FontSize->16],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"minx", ",", "maxx"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"miny", ",", "maxy"}], "}"}]}], "}"}], "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Plot3D", "[", 
        RowBox[{
         RowBox[{"fir", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "minx", ",", "maxx"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "miny", ",", "maxy"}], "}"}], ",", " ", 
         RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", " ", 
         RowBox[{"MeshFunctions", "\[Rule]", 
          RowBox[{"Function", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", " ", "z"}], 
           "]"}]}], ",", 
         RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quality\>\""}], ",", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"minx", ",", "maxx"}], "}"}]}], ",", 
         RowBox[{"ColorFunction", "\[Rule]", 
          RowBox[{"Function", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
            RowBox[{
             RowBox[{"ColorData", "[", "\"\<PigeonTones\>\"", "]"}], "[", "z",
              "]"}]}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Graphics3D", "[", 
        RowBox[{"{", 
         RowBox[{"Magenta", ",", 
          RowBox[{"Arrowheads", "[", "Medium", "]"}], ",", 
          RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
          RowBox[{"Thickness", "[", "Large", "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"pont", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"pont", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"fir", "[", 
              RowBox[{
               RowBox[{"pont", "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", 
               RowBox[{"pont", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Arrow", "[", 
           RowBox[{"{", " ", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"pont", "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
               RowBox[{"pont", "[", 
                RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
               RowBox[{"fir", "[", 
                RowBox[{
                 RowBox[{"pont", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ",", 
                 RowBox[{"pont", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "}"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"pont", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], " ", "+", " ", 
                 RowBox[{"D", "[", 
                  RowBox[{
                   RowBox[{"fir", "[", 
                    RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], "/.",
                 " ", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"x", "->", 
                   RowBox[{"pont", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ",", 
                  RowBox[{"y", "->", 
                   RowBox[{"pont", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"pont", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], "+", "  ", 
                 RowBox[{"D", "[", 
                  RowBox[{
                   RowBox[{"fir", "[", 
                    RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], "/.", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"x", "->", 
                   RowBox[{"pont", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ",", 
                  RowBox[{"y", "->", 
                   RowBox[{"pont", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"fir", "[", 
                 RowBox[{
                  RowBox[{"pont", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], ",", 
                  RowBox[{"pont", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "]"}], " ", "-", " ", 
                "1"}]}], "}"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], 
         "\[IndentingNewLine]", "}"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Graphics3D", "[", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Texture", "[", 
           RowBox[{"ContourPlot", "[", 
            RowBox[{
             RowBox[{"fir", "[", 
              RowBox[{"x", ",", "y"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"x", ",", "minx", ",", "maxx"}], "}"}], ",", " ", 
             RowBox[{"{", 
              RowBox[{"y", ",", "miny", ",", "maxx"}], "}"}], ",", 
             RowBox[{"ColorFunction", "\[Rule]", 
              RowBox[{"Function", "[", 
               RowBox[{
                RowBox[{"{", "z", "}"}], ",", " ", 
                RowBox[{
                 RowBox[{"ColorData", "[", "\"\<PigeonTones\>\"", "]"}], "[", 
                 "z", "]"}]}], "]"}]}], ",", 
             RowBox[{"Axes", "\[Rule]", "False"}], ",", 
             RowBox[{"PlotRangePadding", "\[Rule]", "0"}], ",", 
             RowBox[{"Frame", "\[Rule]", "False"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"Epilog", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"Magenta", ",", 
                RowBox[{"Arrowheads", "[", "Large", "]"}], ",", 
                RowBox[{"PointSize", "[", "Large", "]"}], ",", 
                RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                RowBox[{"Point", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"pont", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                   RowBox[{"pont", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "]"}], 
                "\[IndentingNewLine]", ",", 
                RowBox[{"Arrow", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"pont", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"pont", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"pont", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], " ", "+", " ", 
                    RowBox[{"D", "[", 
                    RowBox[{
                    RowBox[{"fir", "[", 
                    RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], "/.",
                     " ", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"x", "->", 
                    RowBox[{"pont", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ",", 
                    RowBox[{"y", "->", 
                    RowBox[{"pont", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"pont", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "+", "  ", 
                    RowBox[{"D", "[", 
                    RowBox[{
                    RowBox[{"fir", "[", 
                    RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], "/.", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"x", "->", 
                    RowBox[{"pont", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ",", 
                    RowBox[{"y", "->", 
                    RowBox[{"pont", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}]}], "}"}]}], 
                  "\[IndentingNewLine]", "}"}], "]"}]}], 
               "\[IndentingNewLine]", "}"}]}]}], "\[IndentingNewLine]", "]"}],
            "]"}], "\[IndentingNewLine]", ",", 
          RowBox[{"EdgeForm", "[", "]"}], ",", 
          RowBox[{"Polygon", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"minx", ",", "miny", ",", 
                RowBox[{"-", "2"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"maxx", ",", "miny", ",", 
                RowBox[{"-", "2"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"maxx", ",", "maxy", ",", 
                RowBox[{"-", "2"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"minx", ",", "maxy", ",", 
                RowBox[{"-", "2"}]}], "}"}]}], "}"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"VertexTextureCoordinates", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], "]"}]}], "}"}], 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        "]"}], "\[IndentingNewLine]", ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", 
       RowBox[{"BoxRatios", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], ",", 
       RowBox[{"FaceGrids", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Back", ",", "Left"}], "}"}]}], ",", " ", 
       RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quality\>\""}]}], 
      "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"fir", ",", 
        RowBox[{"Function", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x1", ",", "y1"}], "}"}], ",", 
          RowBox[{"2", "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"x1", "/", "2"}], ")"}], "^", "2"}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"y1", "/", "2"}], ")"}], "^", "2"}]}]}], "]"}], ",", 
        "\"\<\>\""}], "}"}], ",", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"Function", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x1", ",", "y1"}], "}"}], ",", 
           RowBox[{"2", "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x1", "/", "2"}], ")"}], "^", "2"}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"y1", "/", "2"}], ")"}], "^", "2"}]}]}], "]"}], "->", 
         RowBox[{"TraditionalForm", "[", 
          RowBox[{"2", "-", 
           RowBox[{
            FractionBox["x", "2"], "^", "2"}], "-", 
           RowBox[{
            FractionBox["y", "2"], "^", "2"}]}], "]"}]}], 
        "\[IndentingNewLine]", ",", 
        RowBox[{
         RowBox[{"Function", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x1", ",", "y1"}], "}"}], ",", 
           RowBox[{"1.5", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"x1", " ", "y1"}], "]"}]}]}], "]"}], "\[Rule]", 
         RowBox[{"TraditionalForm", "[", 
          RowBox[{"Sin", "[", 
           RowBox[{"x", " ", "y"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
        ",", 
        RowBox[{
         RowBox[{"Function", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x1", ",", "y1"}], "}"}], ",", 
           RowBox[{
            RowBox[{
             FractionBox["1", "3"], "x1", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"y1", "/", "4"}]]}], "+", 
            RowBox[{
             FractionBox["1", "2"], 
             RowBox[{"Cos", "[", 
              RowBox[{"x1", " ", "y1"}], "]"}]}]}]}], "]"}], "\[Rule]", 
         RowBox[{"TraditionalForm", "[", 
          RowBox[{
           RowBox[{
            FractionBox["1", "3"], "x", " ", 
            SuperscriptBox["e", 
             FractionBox["y", "4"]]}], "+", 
           RowBox[{
            FractionBox["1", "2"], 
            RowBox[{"Cos", "[", 
             RowBox[{"x", " ", "y"}], "]"}]}]}], "]"}]}], 
        "\[IndentingNewLine]", ",", 
        RowBox[{
         RowBox[{"Function", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x1", ",", "y1"}], "}"}], ",", 
           RowBox[{"x1", "*", 
            RowBox[{"Cos", "[", "y1", "]"}]}]}], "]"}], "\[Rule]", 
         RowBox[{"TraditionalForm", "[", 
          RowBox[{"x", "*", 
           RowBox[{"Cos", "[", "y", "]"}]}], "]"}]}], "\[IndentingNewLine]", 
        ",", 
        RowBox[{
         RowBox[{"Function", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x1", ",", "y1"}], "}"}], ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x1", "^", "2"}], "-", 
              RowBox[{"y1", "^", "2"}]}], ")"}], "/", "2"}]}], "]"}], "->", 
         RowBox[{"TraditionalForm", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "^", "2"}], "-", 
             RowBox[{"y", "^", "2"}]}], ")"}], "/", "2"}], "]"}]}]}], 
       "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      "PopupMenu"}], "}"}], ",", "Delimiter", ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"pont", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Mean", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{".5", " ", "minx"}], ",", "maxx"}], "}"}], "]"}], ",", 
          RowBox[{"Mean", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{".6", "miny"}], ",", "maxy"}], "}"}], "]"}]}], "}"}], 
        ",", "\"\<\>\""}], "}"}], ",", "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"minx", ",", "miny"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"maxx", ",", "maxy"}], "}"}], ",", " ", 
      RowBox[{"ControlType", "\[Rule]", "Slider2D"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"TrackedSymbols", "\[RuleDelayed]", " ", 
     RowBox[{"{", 
      RowBox[{"fir", ",", " ", "pont"}], "}"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"AutorunSequencing", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2"}], "}"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"ControlPlacement", "\[Rule]", " ", "Left"}], ",", " ", 
    RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "\[IndentingNewLine]", 
   "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.6711929355588274`*^9, 3.6711930282069736`*^9}, {
   3.6711930588687644`*^9, 3.6711936577468557`*^9}, {3.6711936938175945`*^9, 
   3.6711938449435234`*^9}, {3.671193893141117*^9, 3.671193928038776*^9}, {
   3.6711939657949567`*^9, 3.6711943623459115`*^9}, {3.67119441938791*^9, 
   3.671194441427594*^9}, {3.6711945215368958`*^9, 3.671194679868041*^9}, {
   3.6711947356705494`*^9, 3.671194843968911*^9}, {3.6711949667104096`*^9, 
   3.6711949705211167`*^9}, {3.671195379126373*^9, 3.671195526218862*^9}, {
   3.6711955928540792`*^9, 3.671195681776264*^9}, {3.671195725204192*^9, 
   3.671195796944392*^9}, {3.671195832655734*^9, 3.671195894368741*^9}, {
   3.6711959674327717`*^9, 3.6711960249587774`*^9}, 3.6711960552064714`*^9, {
   3.6711961233142843`*^9, 3.671196184430915*^9}, {3.671196222086789*^9, 
   3.6711962413176517`*^9}, {3.671196311702704*^9, 3.671196323476265*^9}, {
   3.6711964241230164`*^9, 3.671196428842371*^9}, {3.671196531014291*^9, 
   3.6711965641478596`*^9}, {3.6713328686544123`*^9, 3.671332886527157*^9}, {
   3.671332979978788*^9, 3.671332994416204*^9}, 3.671333097233837*^9, {
   3.671524393408577*^9, 3.671524395844308*^9}, {3.6715244330131187`*^9, 
   3.671524520908444*^9}, {3.671524561377758*^9, 3.671524582705231*^9}, {
   3.6715246387525153`*^9, 3.6715246438621464`*^9}, 3.671524684518489*^9, {
   3.671524897137328*^9, 3.6715248972263913`*^9}, {3.6715249939730844`*^9, 
   3.6715250102606597`*^9}, {3.6715250663960867`*^9, 
   3.6715251230595617`*^9}, {3.671525215751628*^9, 3.671525269300043*^9}, {
   3.671525309430578*^9, 3.6715253636537466`*^9}, {3.671525487369858*^9, 
   3.671525507316272*^9}, {3.671527126446925*^9, 3.671527129665206*^9}, {
   3.6715286593808603`*^9, 3.6715286606668005`*^9}, {3.6715321931814566`*^9, 
   3.6715322141612635`*^9}, {3.6715322690647297`*^9, 
   3.6715322895562987`*^9}, {3.6715323420689306`*^9, 3.671532358217407*^9}, {
   3.6715338247453938`*^9, 3.6715338583392954`*^9}, {3.671533939899927*^9, 
   3.671533947836569*^9}, {3.671533984007604*^9, 3.6715341102320375`*^9}, {
   3.671537158272541*^9, 3.6715371619891834`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`fir$$ = 
    Function[{$CellContext`x1, $CellContext`y1}, ((1/3) $CellContext`x1) 
      E^($CellContext`y1/4) + (1/2) 
      Cos[$CellContext`x1 $CellContext`y1]], $CellContext`pont$$ = {
    0.6200000000000001, 0.26000000000000023`}, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`fir$$], 
       Function[{$CellContext`x1, $CellContext`y1}, 
        2 - ($CellContext`x1/2)^2 - ($CellContext`y1/2)^2], ""}, {
      Function[{$CellContext`x1, $CellContext`y1}, 
         2 - ($CellContext`x1/2)^2 - ($CellContext`y1/2)^2] -> 
       TraditionalForm[
        2 + Rational[-1, 4] $CellContext`x^2 + 
         Rational[-1, 4] $CellContext`y^2], 
       Function[{$CellContext`x1, $CellContext`y1}, 1.5 
         Sin[$CellContext`x1 $CellContext`y1]] -> TraditionalForm[
         Sin[$CellContext`x $CellContext`y]], 
       Function[{$CellContext`x1, $CellContext`y1}, ((1/3) $CellContext`x1) 
          E^($CellContext`y1/4) + (1/2) Cos[$CellContext`x1 $CellContext`y1]] -> 
       TraditionalForm[(
           Rational[
            1, 3] $CellContext`e^(
             Rational[1, 4] $CellContext`y)) $CellContext`x + 
         Rational[1, 2] Cos[$CellContext`x $CellContext`y]], 
       Function[{$CellContext`x1, $CellContext`y1}, $CellContext`x1 
         Cos[$CellContext`y1]] -> 
       TraditionalForm[$CellContext`x Cos[$CellContext`y]], 
       Function[{$CellContext`x1, $CellContext`y1}, ($CellContext`x1^2 - \
$CellContext`y1^2)/2] -> 
       TraditionalForm[
        Rational[1, 2] ($CellContext`x^2 - $CellContext`y^2)]}}, {{
       Hold[$CellContext`pont$$], {0.5, 0.4}, ""}, {-2, -2}, {2, 2}}}, 
    Typeset`size$$ = {360., {205., 208.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`fir$37306$$ = False, $CellContext`pont$37307$$ = {0, 
    0}}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`fir$$ = 
        Function[{$CellContext`x1, $CellContext`y1}, 
          2 - ($CellContext`x1/2)^2 - ($CellContext`y1/
           2)^2], $CellContext`pont$$ = {0.5, 0.4}}, "ControllerVariables" :> {
        Hold[$CellContext`fir$$, $CellContext`fir$37306$$, False], 
        Hold[$CellContext`pont$$, $CellContext`pont$37307$$, {0, 0}]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, 
      "Body" :> ({{$CellContext`minx, $CellContext`maxx}, {$CellContext`miny, \
$CellContext`maxy}} = {{-2, 2}, {-2, 2}}; Show[
         Plot3D[
          $CellContext`fir$$[$CellContext`x, $CellContext`y], \
{$CellContext`x, $CellContext`minx, $CellContext`maxx}, {$CellContext`y, \
$CellContext`miny, $CellContext`maxy}, ImageSize -> Medium, MeshFunctions -> 
          Function[{$CellContext`x, $CellContext`y, $CellContext`z}, \
$CellContext`z], PerformanceGoal -> "Quality", 
          PlotRange -> {$CellContext`minx, $CellContext`maxx}, ColorFunction -> 
          Function[{$CellContext`x, $CellContext`y, $CellContext`z}, 
            ColorData["PigeonTones"][$CellContext`z]]], 
         Graphics3D[{Magenta, 
           Arrowheads[Medium], 
           PointSize[Medium], 
           Thickness[Large], 
           Point[{
             Part[$CellContext`pont$$, 1], 
             Part[$CellContext`pont$$, 2], 
             $CellContext`fir$$[
              Part[$CellContext`pont$$, 1], 
              Part[$CellContext`pont$$, 2]]}], 
           Arrow[{{
              Part[$CellContext`pont$$, 1], 
              Part[$CellContext`pont$$, 2], 
              $CellContext`fir$$[
               Part[$CellContext`pont$$, 1], 
               Part[$CellContext`pont$$, 2]]}, {
              ReplaceAll[Part[$CellContext`pont$$, 1] + D[
                 $CellContext`fir$$[$CellContext`x, $CellContext`y], \
$CellContext`x], {$CellContext`x -> 
                Part[$CellContext`pont$$, 1], $CellContext`y -> 
                Part[$CellContext`pont$$, 2]}], 
              ReplaceAll[Part[$CellContext`pont$$, 2] + D[
                 $CellContext`fir$$[$CellContext`x, $CellContext`y], \
$CellContext`y], {$CellContext`x -> 
                Part[$CellContext`pont$$, 1], $CellContext`y -> 
                Part[$CellContext`pont$$, 2]}], $CellContext`fir$$[
                Part[$CellContext`pont$$, 1], 
                Part[$CellContext`pont$$, 2]] - 1}}]}], 
         Graphics3D[{
           Texture[
            ContourPlot[
             $CellContext`fir$$[$CellContext`x, $CellContext`y], \
{$CellContext`x, $CellContext`minx, $CellContext`maxx}, {$CellContext`y, \
$CellContext`miny, $CellContext`maxx}, ColorFunction -> 
             Function[{$CellContext`z}, 
               ColorData["PigeonTones"][$CellContext`z]], Axes -> False, 
             PlotRangePadding -> 0, Frame -> False, Epilog -> {Magenta, 
               Arrowheads[Large], 
               PointSize[Large], 
               Thickness[Large], 
               Point[{
                 Part[$CellContext`pont$$, 1], 
                 Part[$CellContext`pont$$, 2]}], 
               Arrow[{{
                  Part[$CellContext`pont$$, 1], 
                  Part[$CellContext`pont$$, 2]}, {
                  ReplaceAll[Part[$CellContext`pont$$, 1] + D[
                    $CellContext`fir$$[$CellContext`x, $CellContext`y], \
$CellContext`x], {$CellContext`x -> 
                    Part[$CellContext`pont$$, 1], $CellContext`y -> 
                    Part[$CellContext`pont$$, 2]}], 
                  ReplaceAll[Part[$CellContext`pont$$, 2] + D[
                    $CellContext`fir$$[$CellContext`x, $CellContext`y], \
$CellContext`y], {$CellContext`x -> 
                    Part[$CellContext`pont$$, 1], $CellContext`y -> 
                    Part[$CellContext`pont$$, 2]}]}}]}]], 
           EdgeForm[], 
           
           Polygon[{{$CellContext`minx, $CellContext`miny, -2}, \
{$CellContext`maxx, $CellContext`miny, -2}, {$CellContext`maxx, \
$CellContext`maxy, -2}, {$CellContext`minx, $CellContext`maxy, -2}}, 
            VertexTextureCoordinates -> {{0, 0}, {1, 0}, {1, 1}, {0, 1}}]}], 
         PlotRange -> All, BoxRatios -> {1, 1, 1}, FaceGrids -> {Back, Left}, 
         PerformanceGoal -> "Quality"]), 
      "Specifications" :> {{{$CellContext`fir$$, 
          
          Function[{$CellContext`x1, $CellContext`y1}, 
           2 - ($CellContext`x1/2)^2 - ($CellContext`y1/2)^2], ""}, {
         Function[{$CellContext`x1, $CellContext`y1}, 
            2 - ($CellContext`x1/2)^2 - ($CellContext`y1/2)^2] -> 
          TraditionalForm[
           2 + Rational[-1, 4] $CellContext`x^2 + 
            Rational[-1, 4] $CellContext`y^2], 
          Function[{$CellContext`x1, $CellContext`y1}, 1.5 
            Sin[$CellContext`x1 $CellContext`y1]] -> TraditionalForm[
            Sin[$CellContext`x $CellContext`y]], 
          Function[{$CellContext`x1, $CellContext`y1}, ((1/3) $CellContext`x1)
               E^($CellContext`y1/4) + (1/2) 
             Cos[$CellContext`x1 $CellContext`y1]] -> 
          TraditionalForm[(
              Rational[
               1, 3] $CellContext`e^(
                Rational[1, 4] $CellContext`y)) $CellContext`x + 
            Rational[1, 2] Cos[$CellContext`x $CellContext`y]], 
          Function[{$CellContext`x1, $CellContext`y1}, $CellContext`x1 
            Cos[$CellContext`y1]] -> 
          TraditionalForm[$CellContext`x Cos[$CellContext`y]], 
          Function[{$CellContext`x1, $CellContext`y1}, ($CellContext`x1^2 - \
$CellContext`y1^2)/2] -> 
          TraditionalForm[
           Rational[1, 2] ($CellContext`x^2 - $CellContext`y^2)]}, 
         ControlType -> PopupMenu}, 
        Delimiter, {{$CellContext`pont$$, {0.5, 0.4}, ""}, {-2, -2}, {2, 2}, 
         ControlType -> Slider2D}}, 
      "Options" :> {
       TrackedSymbols :> {$CellContext`fir$$, $CellContext`pont$$}, 
        AutorunSequencing -> {1, 2}, ControlPlacement -> Left}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{561., {235., 242.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`minx = -2, $CellContext`maxx = 
       2, $CellContext`miny = -2, $CellContext`maxy = 2}; 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.671525351728264*^9, 3.671525364751519*^9}, {
   3.6715254932332363`*^9, 3.6715255082879405`*^9}, 3.671527130417768*^9, 
   3.671527435798597*^9, 3.6715286616354694`*^9, {3.6715322019146843`*^9, 
   3.6715322154842033`*^9}, {3.671532282917575*^9, 3.6715322914546695`*^9}, 
   3.671532360606127*^9, 3.671533859046771*^9, 3.6715339504924283`*^9, {
   3.6715340190877748`*^9, 3.6715341113678455`*^9}, 3.671537162658687*^9, 
   3.6716053684420176`*^9, 3.6716075600969*^9, 3.6716083773486094`*^9, 
   3.671608427233513*^9, 3.671609891513376*^9, 3.671613864483699*^9, 
   3.671614514928109*^9, 3.67170284910507*^9, 3.6717073724827185`*^9},
 TextAlignment->Center]
}, {2}]],

Cell["\<\

http : // demonstrations.wolfram.com
\
\>", "Text",
 CellChangeTimes->{{3.6717259086337347`*^9, 3.6717259087788105`*^9}, {
  3.67173201326182*^9, 3.6717320208251944`*^9}},
 TextAlignment->Center,
 FontFamily->"Courier New",
 FontSize->12]
}, Closed]],

Cell[CellGroupData[{

Cell["Integr\[AAcute]l k\[ODoubleDot]zel\[IAcute]t\[EAcute]s", "Section",
 CellChangeTimes->{{3.671172575040964*^9, 3.671172587751997*^9}, {
   3.6717258840792575`*^9, 3.67172588622178*^9}, 3.6717293862527285`*^9},
 FontFamily->"Gill Sans MT",
 FontWeight->"Bold",
 FontColor->RGBColor[1., 1., 1.],
 Background->RGBColor[
  0.25098039215686274`, 0.5019607843137255, 0.5019607843137255]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Legyen", " ", 
    StyleBox[
     RowBox[{"f", ":", "T"}],
     FontWeight->"Bold",
     FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}], 
   StyleBox["\[Rule]",
    FontWeight->"Bold",
    FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
   RowBox[{
    StyleBox["\[DoubleStruckCapitalR]",
     FontWeight->"Bold",
     FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], " ", 
    "k\[EAcute]tv\[AAcute]ltoz\[OAcute]s", " ", 
    "f\[UDoubleDot]ggv\[EAcute]ny"}]}], ",", " ", 
  RowBox[{
   RowBox[{"ahol", "  ", "T", "  ", "egy", " ", 
    RowBox[{"t\[EAcute]glalap", ".", " ", "\[IndentingNewLine]", "Osszuk"}], 
    " ", "fel", " ", "T"}], "-", 
   RowBox[{"t", " ", "tetsz\[ODoubleAcute]legesen"}]}], ",", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"k", "\[CenterDot]", "l"}], " ", "db", " ", "kis", " ", 
    RowBox[{"t\[EAcute]glalapra", ".", "\[IndentingNewLine]", 
     StyleBox[
      SubscriptBox["T", "ij"],
      FontWeight->"Bold",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}]}], 
   StyleBox[":=",
    FontWeight->"Bold",
    FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
   StyleBox[
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x", ",", "y"}], ")"}], ":", " ", 
       RowBox[{
        SubscriptBox["x", 
         RowBox[{"i", "-", "1"}]], "\[LessEqual]", " ", "x", "\[LessEqual]", 
        " ", 
        SubscriptBox["x", "i"]}]}], ",", " ", 
      RowBox[{
       SubscriptBox["y", 
        RowBox[{"j", "-", "1"}]], "\[LessEqual]", "y", "\[LessEqual]", 
       SubscriptBox["y", "j"]}]}], "}"}],
    FontWeight->"Bold",
    FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}], ",", 
  " ", 
  RowBox[{"legyen", " ", 
   RowBox[{"\[LeftBracketingBar]", 
    SubscriptBox["T", "ij"], "\[RightBracketingBar]"}], " ", "a", " ", 
   SubscriptBox["T", "ij"], " ", "t\[EAcute]glalap", " ", 
   RowBox[{
   "ter\[UDoubleDot]lete", ".", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    "\[IndentingNewLine]"}]}]}]], "Text",
 CellChangeTimes->{{3.6717202261052847`*^9, 3.6717204558291383`*^9}, {
   3.671720635496481*^9, 3.671720651186626*^9}, 3.671722011016539*^9, {
   3.6717223393358755`*^9, 3.6717223423940487`*^9}, {3.6717258994622164`*^9, 
   3.671725901289494*^9}},
 TextAlignment->Center,
 FontFamily->"Courier New",
 FontSize->16],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Show", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"vizsz", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "i"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "i"}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "4", ",", "0.6"}], "}"}]}], "]"}]}], ";",
      "\[IndentingNewLine]", 
     RowBox[{"fugg", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"j", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"j", ",", "4"}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", "5", ",", "0.4"}], "}"}]}], "]"}]}], ";",
      "\[IndentingNewLine]", 
     RowBox[{"Graphics", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Thick", "]"}], ",", "White", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Rectangle", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "4"}], "}"}]}], " ", "]"}]}], "}"}], ",", " ", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.8", ",", "5.2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.8", ",", "4.2"}], "}"}]}], "}"}]}]}], 
      "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Dashed", ",", "\[IndentingNewLine]", "fugg"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Dashed", ",", "vizsz"}], "}"}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<\!\(\*SubscriptBox[\(T\), \(ij\)]\)\>\"", ",", "Large", ",", 
         "Red", ",", " ", "Bold"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"2.4", ",", "1.9"}], "}"}]}], "]"}], " ", "]"}], ",", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Opacity", "[", "0.3", "]"}], ",", 
       RowBox[{"Rectangle", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2.2", ",", "1.6"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2.6", ",", "2.2"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "\[IndentingNewLine]", "]"}],
   "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.6717179791363926`*^9, 3.6717180364070034`*^9}, {
   3.671718079134308*^9, 3.671718082309564*^9}, {3.671718126771231*^9, 
   3.6717181358026567`*^9}, {3.67171820302044*^9, 3.67171843479823*^9}, {
   3.671718561455458*^9, 3.671718581579895*^9}, {3.67171868848475*^9, 
   3.671718689882743*^9}, {3.671718731476303*^9, 3.6717188068828278`*^9}, {
   3.6717188568390417`*^9, 3.671718892167025*^9}, {3.6717189383517714`*^9, 
   3.671718943484413*^9}, {3.6717190267655272`*^9, 3.671719042989932*^9}, {
   3.671719111547534*^9, 3.6717192564652195`*^9}, 3.671719292118558*^9, {
   3.671719339061944*^9, 3.671719357938416*^9}, {3.67171942591157*^9, 
   3.671719468840079*^9}, {3.671719510765032*^9, 3.6717195165201216`*^9}, {
   3.6717195485479355`*^9, 3.67172005696931*^9}, {3.6717201495271187`*^9, 
   3.6717201693612146`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {GrayLevel[1], EdgeForm[Thickness[Large]], RectangleBox[{1, 1}, {5, 4}]}, 
   {Dashing[{Small, Small}], LineBox[{{1., 1}, {1., 4}}], 
    LineBox[{{1.4, 1}, {1.4, 4}}], LineBox[{{1.8, 1}, {1.8, 4}}], 
    LineBox[{{2.2, 1}, {2.2, 4}}], LineBox[{{2.6, 1}, {2.6, 4}}], 
    LineBox[{{3., 1}, {3., 4}}], 
    LineBox[{{3.4000000000000004`, 1}, {3.4000000000000004`, 4}}], 
    LineBox[{{3.8000000000000003`, 1}, {3.8000000000000003`, 4}}], 
    LineBox[{{4.2, 1}, {4.2, 4}}], LineBox[{{4.6, 1}, {4.6, 4}}], 
    LineBox[{{5., 1}, {5., 4}}]}, 
   {Dashing[{Small, Small}], LineBox[{{1, 1.}, {5, 1.}}], 
    LineBox[{{1, 1.6}, {5, 1.6}}], LineBox[{{1, 2.2}, {5, 2.2}}], 
    LineBox[{{1, 2.8}, {5, 2.8}}], LineBox[{{1, 3.4}, {5, 3.4}}], 
    LineBox[{{1, 4.}, {5, 4.}}]}, InsetBox[
    StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(T\\), \\(ij\\)]\\)\"\>",
     StripOnInput->False,
     LineColor->RGBColor[1, 0, 0],
     FrontFaceColor->RGBColor[1, 0, 0],
     BackFaceColor->RGBColor[1, 0, 0],
     GraphicsColor->RGBColor[1, 0, 0],
     FontSize->Large,
     FontWeight->Bold,
     FontColor->RGBColor[1, 0, 0]], {2.4, 1.9}], 
   {Opacity[0.3], RectangleBox[{2.2, 1.6}, {2.6, 2.2}]}},
  ImageSize->Large,
  PlotRange->{{0.8, 5.2}, {0.8, 4.2}}]], "Output",
 CellChangeTimes->{{3.6717185830579453`*^9, 3.671718619639917*^9}, {
   3.671718690551237*^9, 3.6717187768454943`*^9}, {3.6717188785093193`*^9, 
   3.671718892620326*^9}, 3.67171894410686*^9, 3.671719043326171*^9, {
   3.6717191185495105`*^9, 3.6717192567564335`*^9}, 3.6717192924277797`*^9, {
   3.671719339516267*^9, 3.6717193583516855`*^9}, 3.6717194694665303`*^9, 
   3.671719517129555*^9, {3.6717195510186915`*^9, 3.6717196238544617`*^9}, {
   3.6717196569718513`*^9, 3.671719968180575*^9}, {3.6717200070410876`*^9, 
   3.6717200581861744`*^9}, {3.6717201583984256`*^9, 3.6717201699546366`*^9}},
 TextAlignment->Center]
}, {2}]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.671722015643835*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Legyen", 
   StyleBox[
    RowBox[{"        ", 
     StyleBox["     ",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
     StyleBox["  ",
      FontWeight->"Bold",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}]], 
   StyleBox[
    SubscriptBox["m", "ij"],
    FontWeight->"Bold",
    FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}], 
  StyleBox[":=",
   FontWeight->"Bold",
   FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
  RowBox[{
   RowBox[{
    StyleBox[
     UnderscriptBox["inf", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x", ",", "y"}], ")"}], "\[Element]", 
       SubscriptBox["T", "ij"]}]],
     FontWeight->"Bold",
     FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
    StyleBox["f",
     FontWeight->"Bold",
     FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
    StyleBox[
     RowBox[{"(", 
      RowBox[{"x", ",", "y"}], ")"}],
     FontWeight->"Bold",
     FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
    StyleBox[
     StyleBox[
      RowBox[{
       StyleBox[" ",
        FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
       StyleBox["   ",
        FontColor->GrayLevel[0]]}]],
     FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
    StyleBox[
     RowBox[{
      StyleBox[" ",
       FontColor->GrayLevel[0]], "       "}]], "\[EAcute]s", 
    StyleBox[
     RowBox[{"          ", 
      StyleBox[" ",
       FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}]], 
    StyleBox[
     SubscriptBox["M", "ij"],
     FontWeight->"Bold",
     FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}], 
   StyleBox[":=",
    FontWeight->"Bold",
    FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
   RowBox[{
    StyleBox[
     UnderscriptBox["sup", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x", ",", "y"}], ")"}], "\[Element]", 
       SubscriptBox["T", "ij"]}]],
     FontWeight->"Bold",
     FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
    StyleBox["f",
     FontWeight->"Bold",
     FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
    RowBox[{
     StyleBox[
      RowBox[{"(", 
       RowBox[{"x", ",", "y"}], ")"}],
      FontWeight->"Bold",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
     "."}]}]}]}]], "Text",
 CellChangeTimes->{{3.671720464252124*^9, 3.6717205901765413`*^9}, {
  3.6717222047053337`*^9, 3.6717222217664385`*^9}},
 TextAlignment->Center,
 FontFamily->"Courier New",
 FontSize->16],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Ekkor", 
    StyleBox[
     RowBox[{"               ", 
      StyleBox["   ",
       FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}]], 
    StyleBox[
     UnderscriptBox["s", "_"],
     FontWeight->"Bold",
     FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}], 
   StyleBox["=",
    FontWeight->"Bold",
    FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
   RowBox[{
    StyleBox[
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"i", "=", "1"}], "k"],
     FontWeight->"Bold",
     FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
    RowBox[{
     StyleBox[
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"j", "=", "1"}], "l"],
      FontWeight->"Bold",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
     StyleBox[" ",
      FontWeight->"Bold",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
     RowBox[{
      StyleBox[
       SubscriptBox["m", "ij"],
       FontWeight->"Bold",
       FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
      StyleBox[
       RowBox[{"\[LeftBracketingBar]", 
        SubscriptBox["T", "ij"], "\[RightBracketingBar]"}],
       FontWeight->"Bold",
       FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], "   ",
       "az", " ", "als\[OAcute]", " ", 
      "k\[ODoubleDot]zel\[IAcute]t\[ODoubleAcute]", " ", 
      "\[ODoubleDot]sszeg"}]}]}]}], ",", " ", 
  RowBox[{
   RowBox[{"\[EAcute]s", "    ", 
    StyleBox[
     OverscriptBox["s", "_"],
     FontWeight->"Bold",
     FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]]}], 
   StyleBox["=",
    FontWeight->"Bold",
    FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
   RowBox[{
    StyleBox[
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"i", "=", "1"}], "k"],
     FontWeight->"Bold",
     FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
    RowBox[{
     StyleBox[
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"j", "=", "1"}], "l"],
      FontWeight->"Bold",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
     StyleBox[" ",
      FontWeight->"Bold",
      FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
     RowBox[{
      StyleBox[
       SubscriptBox["M", "ij"],
       FontWeight->"Bold",
       FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], 
      StyleBox[
       RowBox[{"\[LeftBracketingBar]", 
        SubscriptBox["T", "ij"], "\[RightBracketingBar]"}],
       FontWeight->"Bold",
       FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]], "    ",
       "a", " ", "fels\[ODoubleAcute]", " ", 
      "k\[ODoubleDot]zel\[IAcute]t\[ODoubleAcute]", " ", 
      RowBox[{"\[ODoubleDot]sszeg", " ", "."}]}]}]}]}]}]], "Text",
 CellChangeTimes->{{3.671720593116631*^9, 3.6717206194891057`*^9}, {
  3.671720660078945*^9, 3.671720746269189*^9}, {3.6717208930154037`*^9, 
  3.6717209371926913`*^9}},
 TextAlignment->Center,
 FontFamily->"Courier New",
 FontSize->16],

Cell[BoxData[
 RowBox[{
  RowBox[{"T\[EAcute]tel", ":", 
   RowBox[{
    RowBox[{"Ha", " ", "f", " ", "folytonos", " ", "T"}], "-", "n"}]}], ",", 
  RowBox[{
  "akkor", " ", "pontosan", " ", "egy", " ", "olyan", " ", "S", " ", 
   "sz\[AAcute]m", " ", "van"}], ",", 
  RowBox[{"melyre", " ", "igaz"}], ",", 
  RowBox[{
   RowBox[{"hogy", "  ", 
    UnderscriptBox["s", "_"]}], " ", "\[LessEqual]", " ", "S", " ", 
   "\[LessEqual]", " ", 
   OverscriptBox["s", "_"]}], " ", ",", " ", 
  RowBox[{
  "\[EAcute]s", " ", "ez", " ", "a", " ", "f\[UDoubleDot]ggv\[EAcute]ny", " ",
    "kett\[ODoubleAcute]s", " ", 
   RowBox[{"integr\[AAcute]lja", "."}]}]}]], "Text",
 CellChangeTimes->{{3.6717209417769556`*^9, 3.6717210631890783`*^9}},
 TextAlignment->Center,
 FontFamily->"Courier New",
 FontSize->16],

Cell[TextData[{
 StyleBox["S =",
  FontWeight->"Bold",
  FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]],
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderscriptBox[
     RowBox[{"\[Integral]", "\[Integral]"}], "T"], 
    RowBox[{"f", "(", 
     RowBox[{"x", ",", "y"}], ")"}], 
    RowBox[{"\[DifferentialD]", "x"}], 
    RowBox[{"\[DifferentialD]", "y"}]}], TraditionalForm]],
  TextAlignment->Center,
  FormatType->"TraditionalForm",
  FontWeight->"Bold",
  FontColor->RGBColor[0.5019607843137255, 0., 0.5019607843137255]],
 "."
}], "Text",
 CellChangeTimes->{{3.671721067493287*^9, 3.6717211277329707`*^9}},
 TextAlignment->Center,
 FontFamily->"Courier New",
 FontSize->16],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.6717213225298405`*^9, 3.6717213240088916`*^9}},
 TextAlignment->Center,
 FontFamily->"Courier New",
 FontSize->16],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.6717258757553406`*^9, 3.6717258765429*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
   "A", " ", "k\[ODoubleDot]vetkez\[ODoubleAcute]", " ", 
    "\[AAcute]br\[AAcute]n", " ", "az", " ", "f", 
    RowBox[{"(", 
     RowBox[{"x", ",", "y"}], ")"}]}], "=", 
   RowBox[{"2", "-", 
    RowBox[{"2", "sin", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["x", "2"], "+", 
       SuperscriptBox["y", "2"]}], ")"}], " ", "f\[UDoubleDot]ggv\[EAcute]ny",
      " ", "als\[OAcute]", " ", "\[EAcute]s", " ", "fels\[ODoubleAcute]", " ",
      "k\[ODoubleDot]zel\[IAcute]t\[EAcute]se", " ", 
     "l\[AAcute]that\[OAcute]"}]}]}], ",", " ", 
  "\[AAcute]ll\[IAcute]that\[OAcute]", ",", " ", 
  RowBox[{"n\[EAcute]gyzetes", " ", 
   RowBox[{"feloszt\[AAcute]sokon", ".", " ", "Tov\[AAcute]bb\[AAcute]"}], 
   " ", "az", " ", "\[AAcute]bra", " ", "melletti", " ", 
   "sz\[AAcute]m\[IAcute]t\[AAcute]s", " ", "bizony\[IAcute]tja"}], ",", " ", 
  RowBox[{
  "hogy", " ", "min\[EAcute]l", " ", "s\[UDoubleAcute]r\[UDoubleAcute]bb", 
   " ", "feloszt\[AAcute]st", " ", "vesz\[UDoubleDot]nk"}], ",", "     ", 
  RowBox[{
  "ann\[AAcute]l", " ", "kisebb", " ", "a", " ", "elt\[EAcute]r\[EAcute]s", 
   " ", "az", " ", "integt\[AAcute]l", " ", "\[EAcute]s", " ", "a", " ", 
   "k\[ODoubleDot]zel\[IAcute]t\[EAcute]s", " ", "\[AAcute]ltal", " ", 
   "meghat\[AAcute]rozott", " ", "t\[EAcute]rfogati", " ", 
   "\[EAcute]rt\[EAcute]k", " ", 
   RowBox[{
   "k\[ODoubleDot]z\[ODoubleDot]tt", ".", "\[IndentingNewLine]", 
    "\[IndentingNewLine]"}]}]}]], "Text",
 CellChangeTimes->{{3.6717214079827576`*^9, 3.671721500956354*^9}, {
  3.6717216594392223`*^9, 3.6717216989181585`*^9}, {3.671721737436531*^9, 
  3.6717218422713203`*^9}, {3.6717220568289003`*^9, 3.67172205796468*^9}, {
  3.671722283967368*^9, 3.671722289286141*^9}},
 TextAlignment->Center,
 FontFamily->"Courier New",
 FontSize->16],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Module", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "fuggveny", ",", "fi", ",", "int", ",", "meret", ",", " ", "intmeret", 
       ",", "felosztas", ",", "intervallumok", ",", " ", "intervallumok2", 
       ",", "fiosszege", ",", " ", "osszeg"}], "}"}], ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"fi", "[", 
        RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
       RowBox[{"2", "-", 
        RowBox[{"2", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{
           SuperscriptBox["x", "2"], "+", 
           SuperscriptBox["y", "2"]}], "]"}]}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"int", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "1"}], "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"meret", "=", 
       RowBox[{
        RowBox[{"int", "[", 
         RowBox[{"[", "2", "]"}], "]"}], "-", 
        RowBox[{"int", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"fuggveny", "=", 
       RowBox[{"Plot3D", "[", 
        RowBox[{
         RowBox[{"fi", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", 
           RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", 
           RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Opacity", "[", "0.5", "]"}], ",", 
            RowBox[{"Lighter", "[", "Cyan", "]"}]}], "}"}]}], ",", 
         RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
         RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
         RowBox[{"Axes", "\[Rule]", "None"}], ",", " ", 
         RowBox[{"ImageSize", "\[Rule]", " ", 
          RowBox[{"{", 
           RowBox[{"450", ",", "450"}], "}"}]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"intmeret", "=", 
       FractionBox["meret", "osztopontok"]}], ";", "\[IndentingNewLine]", 
      RowBox[{"felosztas", "=", 
       RowBox[{"Partition", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{"i", ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"-", "1"}], ",", "1", ",", "intmeret"}], "}"}]}], "]"}], 
         ",", "2", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"intervallumok", "=", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"felosztas", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"felosztas", "[", 
               RowBox[{"[", "j", "]"}], "]"}], "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", "osztopontok"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"j", ",", "1", ",", "osztopontok"}], "}"}]}], "]"}], ",", 
         "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"intervallumok2", "=", 
       RowBox[{"Flatten", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"felosztas", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}], "<", "x", "<", 
            RowBox[{
             RowBox[{"felosztas", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], "&&", 
           RowBox[{
            RowBox[{
             RowBox[{"felosztas", "[", 
              RowBox[{"[", "j", "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}], "<", "y", "<", 
            RowBox[{
             RowBox[{"felosztas", "[", 
              RowBox[{"[", "j", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", "osztopontok"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "1", ",", "osztopontok"}], "}"}]}], "]"}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"fiosszege", "=", 
       RowBox[{"Switch", "[", 
        RowBox[{
        "m\[OAcute]dszer", ",", "\[IndentingNewLine]", 
         "\"\<als\[OAcute] k\[ODoubleDot]zel\[IAcute]t\[EAcute]s\>\"", ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"NMinimize", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"fi", "[", 
                 RowBox[{"x", ",", "y"}], "]"}], ",", 
                RowBox[{"intervallumok2", "[", 
                 RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "y"}], "}"}]}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             SuperscriptBox["osztopontok", "2"]}], "}"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         "\"\<fels\[ODoubleAcute] k\[ODoubleDot]zel\[IAcute]t\[EAcute]s\>\"", 
         ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"NMaximize", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"fi", "[", 
                 RowBox[{"x", ",", "y"}], "]"}], ",", 
                RowBox[{"intervallumok2", "[", 
                 RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "y"}], "}"}]}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             SuperscriptBox["osztopontok", "2"]}], "}"}]}], "]"}]}], 
        "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"osszeg", "=", 
       RowBox[{"N", "[", 
        RowBox[{"Total", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            SuperscriptBox["intmeret", "2"], "*", 
            RowBox[{"fiosszege", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             SuperscriptBox["osztopontok", "2"]}], "}"}]}], "]"}], "]"}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Show", "[", 
        RowBox[{"fuggveny", ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"Graphics3D", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Opacity", "[", "0.5", "]"}], ",", "Pink", ",", 
              RowBox[{"Cuboid", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"intervallumok", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "[", 
                   RowBox[{"[", "1", "]"}], "]"}], ",", 
                  RowBox[{
                   RowBox[{"intervallumok", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "[", 
                   RowBox[{"[", "2", "]"}], "]"}], ",", 
                  RowBox[{"fiosszege", "[", 
                   RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{"intervallumok", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "+", "intmeret"}], ",", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"intervallumok", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "-", "intmeret"}], ",", 
                  "0"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             SuperscriptBox["osztopontok", "2"]}], "}"}]}], "]"}], ",", 
         RowBox[{"BoxRatios", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], ",", 
         RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}], 
       "\[IndentingNewLine]", 
       RowBox[{"Pane", "[", 
        RowBox[{"Column", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Text", "@", 
            RowBox[{"Row", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"TraditionalForm", "[", 
                RowBox[{"\"\<f(x,y)\>\"", ",", 
                 RowBox[{"Style", "[", 
                  RowBox[{"Italic", ",", "Bold", ",", 
                   RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}]}],
                   "]"}]}], "]"}], ",", "\"\< = \>\"", ",", 
               RowBox[{"TraditionalForm", "[", 
                RowBox[{
                 RowBox[{"fi", "[", 
                  RowBox[{"x", ",", "y"}], "]"}], ",", 
                 RowBox[{"Style", "[", 
                  RowBox[{"Italic", ",", "Bold", ",", 
                   RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}]}],
                   "]"}]}], "]"}]}], "}"}], "]"}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Text", "@", 
            RowBox[{"Row", "[", 
             RowBox[{"{", "\"\< \>\"", "}"}], "]"}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Text", "@", 
            RowBox[{"Row", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"TraditionalForm", "[", 
                RowBox[{
                "\"\<\[Integral]\[Integral]f(x,y)  \[DifferentialD]x \
\[DifferentialD]y\>\"", ",", 
                 RowBox[{"Style", "[", 
                  RowBox[{"Italic", ",", "Bold", ",", 
                   RowBox[{"FontFamily", "\[Rule]", "\"\<Courier New\>\""}]}],
                   "]"}]}], "]"}], ",", "\"\< = \>\"", ",", 
               RowBox[{"N", "[", 
                RowBox[{"Integrate", "[", 
                 RowBox[{
                  RowBox[{"fi", "[", 
                   RowBox[{"x", ",", "y"}], "]"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"x", ",", 
                    RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"y", ",", 
                    RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}], "]"}]}], 
              "}"}], "]"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"Text", "@", 
            RowBox[{"Row", "[", 
             RowBox[{"{", 
              RowBox[{
              "\"\<\[ODoubleDot]sszeg (t\[EAcute]rfogat) = \>\"", ",", " ", 
               "osszeg"}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"Text", "@", 
            RowBox[{"Row", "[", 
             RowBox[{"{", 
              RowBox[{"\"\<hiba = \>\"", ",", 
               RowBox[{"Abs", "[", 
                RowBox[{"osszeg", "-", 
                 RowBox[{"N", "[", 
                  RowBox[{"Integrate", "[", 
                   RowBox[{
                    RowBox[{"fi", "[", 
                    RowBox[{"x", ",", "y"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", 
                    RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"y", ",", 
                    RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}], "]"}]}], 
                "]"}]}], "}"}], "]"}]}]}], "\[IndentingNewLine]", "}"}], 
         "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "]"}]}]}]}], 
    "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "osztopontok", ",", "3", ",", 
       "\"\<feloszt\[AAcute]sok sz\[AAcute]ma oldalank\[EAcute]nt\>\""}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", "Setter"}], 
    "}"}], ",", "Delimiter", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "m\[OAcute]dszer", ",", 
       "\"\<als\[OAcute] k\[ODoubleDot]zel\[IAcute]t\[EAcute]s\>\""}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<als\[OAcute] k\[ODoubleDot]zel\[IAcute]t\[EAcute]s\>\"", ",", " ", 
       "\"\<fels\[ODoubleAcute] k\[ODoubleDot]zel\[IAcute]t\[EAcute]s\>\""}], 
      "}"}]}], "}"}], "\[IndentingNewLine]", ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6000914249381356`*^9, 3.600091441953109*^9}, {
   3.600091478571203*^9, 3.6000915304981737`*^9}, {3.6000916102597356`*^9, 
   3.6000917686307936`*^9}, {3.600091857568881*^9, 3.6000918620741386`*^9}, {
   3.6000919196044292`*^9, 3.60009192241859*^9}, 3.6000919606777782`*^9, {
   3.600092016102948*^9, 3.6000920187821016`*^9}, {3.600092194729165*^9, 
   3.6000922572377405`*^9}, {3.600092505436937*^9, 3.60009253154643*^9}, 
   3.600095728209465*^9, {3.6000959908304863`*^9, 3.6000959956917644`*^9}, {
   3.600096108789233*^9, 3.600096114061535*^9}, 3.600096190135886*^9, {
   3.6000963302569003`*^9, 3.600096344115693*^9}, {3.60009639598666*^9, 
   3.600096439208132*^9}, {3.6000966211775403`*^9, 3.6000966687212596`*^9}, {
   3.6000967153509264`*^9, 3.600096731446847*^9}, {3.6000967923963337`*^9, 
   3.600096793070372*^9}, {3.6000968279763684`*^9, 3.6000968286334057`*^9}, {
   3.6000969142223015`*^9, 3.600096951920458*^9}, {3.600096988899573*^9, 
   3.600097022525496*^9}, {3.6000970680561*^9, 3.6000970756855364`*^9}, {
   3.6000971115115857`*^9, 3.6000971126066484`*^9}, {3.600097219272749*^9, 
   3.6000972605921125`*^9}, {3.600097291811898*^9, 3.6000972968641872`*^9}, 
   3.6000978575832586`*^9, {3.600099336299836*^9, 3.6000993368948703`*^9}, {
   3.600099375621085*^9, 3.600099377928217*^9}, {3.600099444973052*^9, 
   3.600099518086234*^9}, {3.600099789794775*^9, 3.600099816184284*^9}, {
   3.600099857316637*^9, 3.600099858138684*^9}, {3.6006170503224235`*^9, 
   3.600617085283423*^9}, {3.6006171402065644`*^9, 3.60061716914522*^9}, {
   3.6006173260281925`*^9, 3.6006173570939693`*^9}, 3.600617522073406*^9, {
   3.600617643944377*^9, 3.6006176479846077`*^9}, {3.6006176905790443`*^9, 
   3.600617707291*^9}, {3.6006180203079033`*^9, 3.600618029640437*^9}, {
   3.6006203757916293`*^9, 3.600620434445984*^9}, {3.600620566693548*^9, 
   3.6006205829594784`*^9}, {3.600620634480426*^9, 3.600620640098747*^9}, {
   3.6006206746887255`*^9, 3.6006206883905087`*^9}, 3.60062074628082*^9, {
   3.6006221160148726`*^9, 3.600622153654026*^9}, {3.6006222636293163`*^9, 
   3.600622394882823*^9}, {3.6006224584374585`*^9, 3.6006225216580744`*^9}, {
   3.600622617856577*^9, 3.60062261896064*^9}, {3.600622871670094*^9, 
   3.6006228955784616`*^9}, {3.600622950051577*^9, 3.600622953577779*^9}, {
   3.6006230502893105`*^9, 3.600623107188565*^9}, {3.600623164702854*^9, 
   3.600623170425182*^9}, {3.6006233316754045`*^9, 3.6006233345555696`*^9}, {
   3.6006233689215355`*^9, 3.6006233896697216`*^9}, {3.600623454801447*^9, 
   3.6006235455136356`*^9}, 3.6006236480995035`*^9, {3.600623715508359*^9, 
   3.6006237156943693`*^9}, {3.6011125194740696`*^9, 3.601112531139737*^9}, {
   3.601112596439472*^9, 3.6011126135674515`*^9}, {3.6011126448962436`*^9, 
   3.6011127116510615`*^9}, {3.6011127552895575`*^9, 
   3.6011127613219028`*^9}, {3.6011128345900936`*^9, 
   3.6011128421085234`*^9}, {3.601112947281539*^9, 3.6011129502487087`*^9}, {
   3.6011129882398815`*^9, 3.60111299573431*^9}, 3.601113111748946*^9, {
   3.601113191905531*^9, 3.601113195300725*^9}, {3.601113537162278*^9, 
   3.6011135461157904`*^9}, {3.6011135777516*^9, 3.601113582401866*^9}, {
   3.601113970811082*^9, 3.6011139915832696`*^9}, {3.6011140585220985`*^9, 
   3.6011140828274884`*^9}, {3.601114117052446*^9, 3.6011141234568124`*^9}, {
   3.60111418670743*^9, 3.6011141869034414`*^9}, {3.6011150963824606`*^9, 
   3.601115096704479*^9}, {3.601115755013132*^9, 3.6011157618495235`*^9}, {
   3.6011158518266697`*^9, 3.601115855713892*^9}, {3.6011160619616885`*^9, 
   3.6011160925794396`*^9}, {3.601117767575244*^9, 3.6011177718124866`*^9}, 
   3.6011178093186316`*^9, {3.601117839976385*^9, 3.601117844168625*^9}, {
   3.601117940371127*^9, 3.6011179409121585`*^9}, {3.601117973050997*^9, 
   3.601117980651431*^9}, {3.601118093728899*^9, 3.60111815354132*^9}, {
   3.601118800064299*^9, 3.601118807716737*^9}, {3.6011190251941757`*^9, 
   3.6011190418861303`*^9}, {3.601119102846617*^9, 3.60111910324364*^9}, {
   3.6011191457000685`*^9, 3.6011191950478907`*^9}, {3.601119564761037*^9, 
   3.601119572628487*^9}, {3.601119604900333*^9, 3.601119605141347*^9}, {
   3.601119783651557*^9, 3.601119792533065*^9}, {3.6015442673796844`*^9, 
   3.601544277488263*^9}, {3.601544441232629*^9, 3.601544450753173*^9}, {
   3.6015610025752573`*^9, 3.6015611504167137`*^9}, {3.6015616571946993`*^9, 
   3.601561660678899*^9}, {3.6015624218394346`*^9, 3.601562487415186*^9}, 
   3.6015625576102004`*^9, {3.601563069387472*^9, 3.6015630803651004`*^9}, {
   3.6015631346882076`*^9, 3.6015631602486696`*^9}, {3.601709595153475*^9, 
   3.6017095985176673`*^9}, {3.601709771961588*^9, 3.601709829202862*^9}, {
   3.6017098914964247`*^9, 3.6017100114282846`*^9}, {3.6017100655743814`*^9, 
   3.6017100661524143`*^9}, {3.6017101795689015`*^9, 
   3.6017101798619184`*^9}, {3.6070714374881926`*^9, 
   3.6070714711631184`*^9}, {3.607071567385622*^9, 3.607071589182869*^9}, {
   3.612723705377878*^9, 3.61272386721206*^9}, {3.6127238990002384`*^9, 
   3.612723900995438*^9}, {3.6127239341657543`*^9, 3.612723940349373*^9}, {
   3.6127255275600777`*^9, 3.612725616429964*^9}, {3.6127256609074116`*^9, 
   3.6127256885701776`*^9}, {3.6127258262799473`*^9, 
   3.6127258979948425`*^9}, {3.612732598115065*^9, 3.612732611274407*^9}, {
   3.612732664275518*^9, 3.612732682093546*^9}, {3.612732763691787*^9, 
   3.612732771240302*^9}, {3.612732861002117*^9, 3.612732922769047*^9}, {
   3.612733033338716*^9, 3.612733033720942*^9}, {3.612866037609694*^9, 
   3.612866060038661*^9}, {3.671173516493905*^9, 3.6711737939728365`*^9}, {
   3.6711738346025887`*^9, 3.6711738356503267`*^9}, {3.6711738726651278`*^9, 
   3.671174009849004*^9}, {3.6711740412792797`*^9, 3.6711741824227023`*^9}, {
   3.671174217258113*^9, 3.671174260252224*^9}, {3.6711743187591896`*^9, 
   3.671174338998452*^9}, 3.6711743840630016`*^9, {3.6711745261599617`*^9, 
   3.6711745631424866`*^9}, {3.6711746478583016`*^9, 
   3.6711746510615516`*^9}, {3.6711750285871944`*^9, 3.671175107630625*^9}, {
   3.6711752635078516`*^9, 3.671175268464181*^9}, {3.6711756048545294`*^9, 
   3.6711757200740156`*^9}, {3.6711757580928893`*^9, 
   3.6711758223076715`*^9}, {3.6711759064987965`*^9, 
   3.6711759136338673`*^9}, {3.671185399441554*^9, 3.671185416975712*^9}, {
   3.6711854804556932`*^9, 3.6711855855649796`*^9}, {3.6711856534761105`*^9, 
   3.671185653487118*^9}, {3.6711857674864674`*^9, 3.6711857691206293`*^9}, {
   3.671185889570095*^9, 3.671185930044876*^9}, {3.671185966006499*^9, 
   3.671186002107259*^9}, {3.671186076585767*^9, 3.671186197063823*^9}, {
   3.671186235198641*^9, 3.671186246205637*^9}, {3.671186306931872*^9, 
   3.6711863482244043`*^9}, {3.6711863891061*^9, 3.6711864386101456`*^9}, {
   3.67118646963514*^9, 3.6711865373948355`*^9}, 3.6711866138789663`*^9, {
   3.6711867487455654`*^9, 3.671186823569038*^9}, {3.671186855423105*^9, 
   3.6711868727586203`*^9}, {3.6711869033033705`*^9, 
   3.6711869129682493`*^9}, {3.6711869436366715`*^9, 
   3.6711870629124975`*^9}, {3.671187127114332*^9, 3.671187129388927*^9}, {
   3.6711872004119143`*^9, 3.6711872219294004`*^9}, 3.6711872519726157`*^9, {
   3.6711872879171753`*^9, 3.671187339229001*^9}, 3.6711874020553284`*^9, 
   3.67118744188894*^9, {3.6711874819498887`*^9, 3.6711874958118896`*^9}, {
   3.671188071095547*^9, 3.6711881121860743`*^9}, {3.671188156618075*^9, 
   3.6711885375937734`*^9}, {3.6711885703761797`*^9, 
   3.6711885886295853`*^9}, {3.671188625400981*^9, 3.671188643051675*^9}, {
   3.671188682253541*^9, 3.6711887058667173`*^9}, {3.6711887380987206`*^9, 
   3.6711887521868296`*^9}, {3.671188784102721*^9, 3.671188786710802*^9}, {
   3.671190507761075*^9, 3.671190511972062*^9}, {3.6711905454879084`*^9, 
   3.671190546494602*^9}, {3.6711905892975206`*^9, 3.6711906646042166`*^9}, {
   3.6711907952499156`*^9, 3.671190808791519*^9}, {3.671190855489683*^9, 
   3.671190866795185*^9}, {3.671532103482703*^9, 3.6715321088235044`*^9}, 
   3.6715321803743486`*^9, {3.6715332668819094`*^9, 3.6715332984664965`*^9}, {
   3.6717149554193206`*^9, 3.671714957445733*^9}, {3.671721275460641*^9, 
   3.6717212786248903`*^9}, {3.671721338111921*^9, 3.6717213484022274`*^9}, {
   3.671721543407522*^9, 3.6717215466338096`*^9}, {3.6717215831532307`*^9, 
   3.671721629770999*^9}, {3.6717218611015377`*^9, 3.6717218912596064`*^9}, {
   3.6717247106345873`*^9, 3.671724712877174*^9}, {3.6717247447261157`*^9, 
   3.6717247474970846`*^9}},
 TextJustification->1.],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`m\[OAcute]dszer$$ = 
    "als\[OAcute] k\[ODoubleDot]zel\[IAcute]t\[EAcute]s", \
$CellContext`osztopontok$$ = 3, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`osztopontok$$], 3, 
       "feloszt\[AAcute]sok sz\[AAcute]ma oldalank\[EAcute]nt"}, {3, 5, 7, 
      9}}, {{
       Hold[$CellContext`m\[OAcute]dszer$$], 
       "als\[OAcute] k\[ODoubleDot]zel\[IAcute]t\[EAcute]s"}, {
      "als\[OAcute] k\[ODoubleDot]zel\[IAcute]t\[EAcute]s", 
       "fels\[ODoubleAcute] k\[ODoubleDot]zel\[IAcute]t\[EAcute]s"}}}, 
    Typeset`size$$ = {597., {223., 227.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`osztopontok$198440$$ = 
    0, $CellContext`m\[OAcute]dszer$198441$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`m\[OAcute]dszer$$ = 
        "als\[OAcute] k\[ODoubleDot]zel\[IAcute]t\[EAcute]s", \
$CellContext`osztopontok$$ = 3}, "ControllerVariables" :> {
        Hold[$CellContext`osztopontok$$, $CellContext`osztopontok$198440$$, 
         0], 
        Hold[$CellContext`m\[OAcute]dszer$$, \
$CellContext`m\[OAcute]dszer$198441$$, False]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Module[{$CellContext`fuggveny$, $CellContext`fi$, $CellContext`int$, \
$CellContext`meret$, $CellContext`intmeret$, $CellContext`felosztas$, \
$CellContext`intervallumok$, $CellContext`intervallumok2$, \
$CellContext`fiosszege$, $CellContext`osszeg$}, $CellContext`fi$[
           Pattern[$CellContext`x, 
            Blank[]], 
           Pattern[$CellContext`y, 
            Blank[]]] := 
         2 - 2 Sin[$CellContext`x^2 + $CellContext`y^2]; $CellContext`int$ = \
{-1, 1}; $CellContext`meret$ = 
         Part[$CellContext`int$, 2] - 
          Part[$CellContext`int$, 1]; $CellContext`fuggveny$ = Plot3D[
           $CellContext`fi$[$CellContext`x, $CellContext`y], {$CellContext`x, \
-1, 1}, {$CellContext`y, -1, 1}, PlotStyle -> {
             Opacity[0.5], 
             Lighter[Cyan]}, Mesh -> None, Boxed -> False, Axes -> None, 
           ImageSize -> {450, 
            450}]; $CellContext`intmeret$ = \
$CellContext`meret$/$CellContext`osztopontok$$; $CellContext`felosztas$ = 
         Partition[
           
           Table[$CellContext`i, {$CellContext`i, -1, 
             1, $CellContext`intmeret$}], 2, 1]; $CellContext`intervallumok$ = 
         Flatten[
           Table[{
             Part[
              Part[$CellContext`felosztas$, $CellContext`i], 1], 
             Part[
              Part[$CellContext`felosztas$, $CellContext`j], 
              2]}, {$CellContext`i, 
             1, $CellContext`osztopontok$$}, {$CellContext`j, 
             1, $CellContext`osztopontok$$}], 
           1]; $CellContext`intervallumok2$ = Flatten[
           Table[
            And[Part[
               Part[$CellContext`felosztas$, $CellContext`i], 
               1] < $CellContext`x < Part[
               Part[$CellContext`felosztas$, $CellContext`i], 2], Part[
               Part[$CellContext`felosztas$, $CellContext`j], 
               1] < $CellContext`y < Part[
               Part[$CellContext`felosztas$, $CellContext`j], 
               2]], {$CellContext`i, 
             1, $CellContext`osztopontok$$}, {$CellContext`j, 
             1, $CellContext`osztopontok$$}]]; $CellContext`fiosszege$ = 
         Switch[$CellContext`m\[OAcute]dszer$$, 
           "als\[OAcute] k\[ODoubleDot]zel\[IAcute]t\[EAcute]s", 
           Table[
            Part[
             NMinimize[{
               $CellContext`fi$[$CellContext`x, $CellContext`y], 
               
               Part[$CellContext`intervallumok2$, $CellContext`i]}, \
{$CellContext`x, $CellContext`y}], 1], {$CellContext`i, 
             1, $CellContext`osztopontok$$^2}], 
           "fels\[ODoubleAcute] k\[ODoubleDot]zel\[IAcute]t\[EAcute]s", 
           Table[
            Part[
             NMaximize[{
               $CellContext`fi$[$CellContext`x, $CellContext`y], 
               
               Part[$CellContext`intervallumok2$, $CellContext`i]}, \
{$CellContext`x, $CellContext`y}], 1], {$CellContext`i, 
             1, $CellContext`osztopontok$$^2}]]; $CellContext`osszeg$ = N[
           Total[
            
            Table[$CellContext`intmeret$^2 
             Part[$CellContext`fiosszege$, $CellContext`i], {$CellContext`i, 
              1, $CellContext`osztopontok$$^2}]]]; 
        Show[$CellContext`fuggveny$, 
           Table[
            Graphics3D[{
              Opacity[0.5], Pink, 
              Cuboid[{
                Part[
                 Part[$CellContext`intervallumok$, $CellContext`i], 1], 
                Part[
                 Part[$CellContext`intervallumok$, $CellContext`i], 2], 
                Part[$CellContext`fiosszege$, $CellContext`i]}, {Part[
                  Part[$CellContext`intervallumok$, $CellContext`i], 
                  1] + $CellContext`intmeret$, Part[
                  Part[$CellContext`intervallumok$, $CellContext`i], 
                  2] - $CellContext`intmeret$, 0}]}], {$CellContext`i, 
             1, $CellContext`osztopontok$$^2}], BoxRatios -> {1, 1, 1}, Boxed -> 
           False] Pane[
           Column[{
             Text[
              Row[{
                TraditionalForm["f(x,y)", 
                 Style[Italic, Bold, FontFamily -> "Courier New"]], " = ", 
                TraditionalForm[
                 $CellContext`fi$[$CellContext`x, $CellContext`y], 
                 Style[Italic, Bold, FontFamily -> "Courier New"]]}]], 
             Text[
              Row[{" "}]], 
             Text[
              Row[{
                TraditionalForm[
                "\[Integral]\[Integral]f(x,y)  \[DifferentialD]x \
\[DifferentialD]y", 
                 Style[Italic, Bold, FontFamily -> "Courier New"]], " = ", 
                N[
                 Integrate[
                  $CellContext`fi$[$CellContext`x, $CellContext`y], \
{$CellContext`x, -1, 1}, {$CellContext`y, -1, 1}]]}]], 
             Text[
              
              Row[{"\[ODoubleDot]sszeg (t\[EAcute]rfogat) = ", \
$CellContext`osszeg$}]], 
             Text[
              Row[{"hiba = ", 
                Abs[$CellContext`osszeg$ - N[
                  Integrate[
                   $CellContext`fi$[$CellContext`x, $CellContext`y], \
{$CellContext`x, -1, 1}, {$CellContext`y, -1, 1}]]]}]]}]]], 
      "Specifications" :> {{{$CellContext`osztopontok$$, 3, 
          "feloszt\[AAcute]sok sz\[AAcute]ma oldalank\[EAcute]nt"}, {3, 5, 7, 
         9}, ControlType -> Setter}, 
        Delimiter, {{$CellContext`m\[OAcute]dszer$$, 
          "als\[OAcute] k\[ODoubleDot]zel\[IAcute]t\[EAcute]s"}, {
         "als\[OAcute] k\[ODoubleDot]zel\[IAcute]t\[EAcute]s", 
          "fels\[ODoubleAcute] k\[ODoubleDot]zel\[IAcute]t\[EAcute]s"}}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{648., {287., 294.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.67118851974168*^9, 3.6711886075992785`*^9, 3.6711886461438994`*^9, 
   3.6711887070815873`*^9, 3.671188753250594*^9, 3.6711887924118533`*^9, 
   3.671190517971332*^9, 3.67119054822085*^9, {3.671190647289733*^9, 
   3.671190672365754*^9}, 3.6711908099173393`*^9, 3.6711908676628313`*^9, 
   3.67119137534721*^9, 3.6715274369334054`*^9, 3.6715321211762776`*^9, 
   3.6715332452975426`*^9, {3.671533282283836*^9, 3.6715333056578646`*^9}, 
   3.671605369103515*^9, 3.6716075610845995`*^9, 3.671608378239221*^9, 
   3.6716084281571536`*^9, 3.6716098922139*^9, 3.671613865286269*^9, 
   3.671702850055746*^9, 3.671707373314333*^9, 3.671714963731201*^9, 
   3.671721281780018*^9, 3.67172135809212*^9, 3.67172155229183*^9, 
   3.671721637311351*^9, {3.671721875127792*^9, 3.6717218994154034`*^9}, 
   3.6717247183570957`*^9, 3.671724752351789*^9},
 TextAlignment->Center]
}, {2}]],

Cell["http : // demonstrations.wolfram.com", "Text",
 CellChangeTimes->{{3.6711726411322775`*^9, 3.6711726759839716`*^9}, {
   3.6711727470760856`*^9, 3.6711727831538944`*^9}, {3.6711728354396734`*^9, 
   3.6711728988454075`*^9}, {3.671172928857956*^9, 3.671172976737089*^9}, {
   3.6711733726673765`*^9, 3.671173415106183*^9}, 3.6711734504123964`*^9, {
   3.671732046742948*^9, 3.671732054716608*^9}},
 TextAlignment->Center,
 FontFamily->"Courier New",
 FontSize->12]
}, Closed]],

Cell[CellGroupData[{

Cell["\[CapitalODoubleDot]sszegz\[EAcute]s", "Section",
 CellChangeTimes->{{3.671538015477916*^9, 3.6715380332858105`*^9}},
 FontFamily->"Gill Sans MT",
 FontWeight->"Bold",
 FontColor->RGBColor[1., 1., 1.],
 Background->RGBColor[
  0.25098039215686274`, 0.5019607843137255, 0.5019607843137255]],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "Munk\[AAcute]nk", " ", "sor\[AAcute]n", " ", "gyakran", " ", 
   "haszn\[AAcute]ltuk", " ", "a", " ", "ContourPlot", " ", "parancsot", " ", 
   "a", " ", "f\[UDoubleDot]ggv\[EAcute]nyek", " ", "szintvonalainak", " ", 
   "\[AAcute]br\[AAcute]zol\[AAcute]s\[AAcute]hoz"}], ",", 
  RowBox[{
  "a", " ", "Plot3D", " ", "utas\[IAcute]t\[AAcute]st", " ", "a", " ", 
   "f\[UDoubleDot]ggv\[EAcute]nyfel\[UDoubleDot]letek", " ", 
   "megjelen\[IAcute]t\[EAcute]s\[EAcute]hez"}], ",", 
  RowBox[{"melyek", " ", "alapvet\[ODoubleAcute]ek"}], ",", 
  RowBox[{
  "ha", " ", "k\[EAcute]tv\[AAcute]ltoz\[OAcute]s", " ", 
   "f\[UDoubleDot]ggv\[EAcute]nyeket", " ", "szeretn\[EAcute]nk", " ", 
   RowBox[{
   "megvizsg\[AAcute]lni", ".", "\[IndentingNewLine]", 
    "Projekt\[UDoubleDot]nk"}], " ", "k\[EAcute]sz\[IAcute]t\[EAcute]se", " ",
    "k\[ODoubleDot]zben", " ", "megbizonyosodtunk", " ", "arr\[OAcute]l"}], 
  ",", 
  RowBox[{
  "hogy", " ", "a", " ", "Wolfram", " ", "Mathematica", " ", "milyen", " ", 
   "jelent\[ODoubleAcute]sen", " ", "megk\[ODoubleDot]nny\[IAcute]ti", " ", 
   "a", " ", "k\[EAcute]tv\[AAcute]ltoz\[OAcute]s", " ", 
   "f\[UDoubleDot]ggv\[EAcute]nyek", " ", "vizsg\[AAcute]lat\[AAcute]t"}], 
  ",", 
  RowBox[{
  "hiszen", " ", "n\[EAcute]ha", " ", "bonyolult", " ", 
   "sz\[AAcute]m\[IAcute]t\[AAcute]sok", " ", "elv\[EAcute]gz\[EAcute]se", 
   " ", "is", " ", "elker\[UDoubleDot]lhet\[ODoubleAcute]", " ", "a", " ", 
   "szeml\[EAcute]letes", " ", "\[AAcute]br\[AAcute]k", " ", 
   RowBox[{
   "seg\[IAcute]ts\[EAcute]g\[EAcute]vel", ".", " ", 
    "Tov\[AAcute]bb\[AAcute]"}]}], ",", 
  RowBox[{
   RowBox[{
   "m\[IAcute]g", " ", "pap\[IAcute]ron", " ", "sz\[AAcute]molva", " ", 
    "csak", " ", "2"}], "-", 
   RowBox[{
   "dimenzi\[OAcute]ban", " ", "tudunk", " ", "\[AAcute]br\[AAcute]zolni"}]}],
   ",", 
  RowBox[{
  "sokszor", " ", "meg", " ", "kell", " ", "b\[IAcute]znunk", " ", "az", " ", 
   "intu\[IAcute]ci\[OAcute]inkban"}], ",", 
  RowBox[{
  "azonban", " ", "a", " ", "program", " ", 
   "seg\[IAcute]ts\[EAcute]g\[EAcute]vel", " ", "biztosak", " ", 
   "lehet\[UDoubleDot]nk", " ", "a", " ", "f\[UDoubleDot]ggv\[EAcute]nyek", "  ", 
   RowBox[{"alakj\[AAcute]ban", "."}]}]}]], "Text",
 CellChangeTimes->{{3.6717308863411975`*^9, 3.6717310750010853`*^9}, {
  3.6717311111709194`*^9, 3.671731362622018*^9}},
 TextAlignment->Center,
 FontFamily->"Courier New",
 FontSize->16]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1334, 685},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
FrontEndVersion->"10.3 for Microsoft Windows (64-bit) (December 10, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 637, 14, 298, "Title"],
Cell[1220, 38, 457, 15, 103, "Text"],
Cell[CellGroupData[{
Cell[1702, 57, 274, 6, 74, "Section"],
Cell[1979, 65, 2538, 57, 194, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4554, 127, 313, 6, 74, "Section"],
Cell[4870, 135, 3805, 84, 217, "Text"],
Cell[8678, 221, 600, 16, 49, "Input"],
Cell[CellGroupData[{
Cell[9303, 241, 9372, 199, 572, "Input"],
Cell[18678, 442, 4937, 102, 392, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[23661, 550, 275, 6, 60, "Section"],
Cell[23939, 558, 2630, 64, 171, "Text"],
Cell[26572, 624, 2022, 62, 36, "Text"],
Cell[CellGroupData[{
Cell[28619, 690, 3945, 100, 172, "Input"],
Cell[32567, 792, 16445, 305, 285, "Output"]
}, {2}]],
Cell[49024, 1100, 255, 6, 52, "Input"],
Cell[49282, 1108, 740, 19, 79, "Text"],
Cell[50025, 1129, 316, 7, 72, "Input"],
Cell[CellGroupData[{
Cell[50366, 1140, 9396, 212, 532, "Input"],
Cell[59765, 1354, 7032, 138, 508, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[66843, 1498, 271, 6, 60, "Section"],
Cell[67117, 1506, 2915, 87, 142, "Text"],
Cell[CellGroupData[{
Cell[70057, 1597, 4923, 125, 232, "Input"],
Cell[74983, 1724, 62760, 1090, 395, "Output"]
}, {2}]],
Cell[137755, 2817, 176, 3, 92, "Input"],
Cell[137934, 2822, 1287, 45, 76, "Text"],
Cell[CellGroupData[{
Cell[139246, 2871, 6549, 134, 212, "Input"],
Cell[145798, 3007, 4248, 80, 550, "Output"]
}, {2}]],
Cell[150058, 3090, 146, 2, 72, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[150241, 3097, 292, 6, 60, "Section"],
Cell[150536, 3105, 5774, 169, 294, "Text"],
Cell[156313, 3276, 433, 13, 65, "Input"],
Cell[CellGroupData[{
Cell[156771, 3293, 344, 8, 47, "Input"],
Cell[157118, 3303, 435, 12, 72, "Output"]
}, Open  ]],
Cell[157568, 3318, 1139, 34, 62, "Text"],
Cell[CellGroupData[{
Cell[158732, 3356, 298, 8, 47, "Input"],
Cell[159033, 3366, 441, 12, 69, "Output"]
}, Open  ]],
Cell[159489, 3381, 1481, 39, 85, "Text"],
Cell[CellGroupData[{
Cell[160995, 3424, 3607, 88, 172, "Input"],
Cell[164605, 3514, 1295567, 21404, 390, "Output"]
}, {2}]],
Cell[1460184, 24921, 220, 3, 132, "Input"],
Cell[CellGroupData[{
Cell[1460429, 24928, 11343, 241, 749, "Input"],
Cell[1471775, 25171, 8361, 149, 466, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[1480182, 25326, 482, 9, 60, "Section"],
Cell[1480667, 25337, 96, 1, 31, "Input"],
Cell[1480766, 25340, 196, 4, 32, "Text"],
Cell[1480965, 25346, 3687, 112, 215, "Input"],
Cell[1484655, 25460, 1671, 43, 108, "Text"],
Cell[CellGroupData[{
Cell[1486351, 25507, 1438, 36, 52, "Input"],
Cell[1487792, 25545, 599018, 9856, 370, 449841, 7410, "CachedBoxData", \
"BoxData", "Output"]
}, {2}]],
Cell[2086822, 35404, 87, 1, 52, "Input"],
Cell[2086912, 35407, 955, 22, 56, "Text"],
Cell[2087870, 35431, 89, 1, 52, "Input"],
Cell[CellGroupData[{
Cell[2087984, 35436, 808, 21, 31, "Input"],
Cell[2088795, 35459, 437624, 7332, 375, 338585, 5708, "CachedBoxData", \
"BoxData", "Output"]
}, {2}]],
Cell[2526431, 42794, 2808, 72, 148, "Text"],
Cell[2529242, 42868, 3544, 105, 173, "Text"],
Cell[CellGroupData[{
Cell[2532811, 42977, 1559, 42, 72, "Input"],
Cell[2534373, 43021, 33603, 583, 375, "Output"]
}, {2}]],
Cell[2567988, 43607, 6702, 209, 331, "Text"],
Cell[CellGroupData[{
Cell[2574715, 43820, 2805, 71, 152, "Input"],
Cell[2577523, 43893, 635635, 10458, 373, 450557, 7423, "CachedBoxData", \
"BoxData", "Output"]
}, {2}]],
Cell[3213170, 54354, 1219, 28, 148, "Text"],
Cell[CellGroupData[{
Cell[3214414, 54386, 4843, 105, 192, "Input"],
Cell[3219260, 54493, 4701, 87, 486, "Output"]
}, {2}]],
Cell[CellGroupData[{
Cell[3223995, 54585, 9279, 208, 472, "Input"],
Cell[3233277, 54795, 5238, 103, 512, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[3238561, 54904, 294, 6, 60, "Section"],
Cell[3238858, 54912, 719, 21, 32, "Text"],
Cell[3239580, 54935, 1629, 49, 51, "Text"],
Cell[3241212, 54986, 1599, 36, 125, "Text"],
Cell[3242814, 55024, 1848, 55, 183, "Text"],
Cell[3244665, 55081, 222, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[3244912, 55088, 4666, 126, 203, "Input"],
Cell[3249581, 55216, 17061, 293, 261, "Output"]
}, {2}]],
Cell[3266654, 55512, 859, 19, 171, "Text"],
Cell[CellGroupData[{
Cell[3267538, 55535, 17953, 421, 1101, "Input"],
Cell[3285494, 55958, 9578, 186, 494, "Output"]
}, {2}]],
Cell[3295084, 56147, 249, 9, 65, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[3295370, 56161, 386, 7, 60, "Section"],
Cell[3295759, 56170, 2452, 64, 149, "Text"],
Cell[CellGroupData[{
Cell[3298236, 56238, 3637, 91, 252, "Input"],
Cell[3301876, 56331, 1904, 35, 463, "Output"]
}, {2}]],
Cell[3303792, 56369, 87, 1, 52, "Input"],
Cell[3303882, 56372, 2690, 81, 48, "Text"],
Cell[3306575, 56455, 3111, 85, 65, "Text"],
Cell[3309689, 56542, 798, 21, 32, "Text"],
Cell[3310490, 56565, 693, 22, 48, "Text"],
Cell[3311186, 56589, 163, 4, 33, "Input"],
Cell[3311352, 56595, 172, 3, 92, "Input"],
Cell[3311527, 56600, 1844, 40, 127, "Text"],
Cell[CellGroupData[{
Cell[3313396, 56644, 21169, 430, 839, "Input"],
Cell[3334568, 57076, 8651, 180, 598, "Output"]
}, {2}]],
Cell[3343231, 57259, 469, 8, 29, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[3343737, 57272, 295, 6, 60, "Section"],
Cell[3344035, 57280, 2451, 53, 194, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
